﻿
Imports vb = Microsoft.VisualBasic
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO
Imports System.Data.OleDb



Public Class Main
    Public DataGridQueLlamaARespuestas As String
    Public NombreFicheroJhi As String
    Public RutaFicheroJhi As String
    Public CadenaConexion As String
    Public Propiedades_del_Objeto As String
    Public dbConnection As OleDbConnection
    Public ValorAnteriorDelCombo As String
    Public Boton_Picado As String
    Public TipoLlamadaAñadirTopicosYRespuestas As String

    Public DataAdapterInicio As OleDbDataAdapter
    Public DataAdapterLocalidades As OleDbDataAdapter
    Public DataAdapterObjetos As OleDbDataAdapter
    Public DataTableObjetos As DataTable

    Const SelectInicioByOrder As String = "SELECT * FROM INICIO ORDER BY ID"
    Const SelectLocalidadesByOrder As String = "SELECT * FROM LOCALIDADES ORDER BY ID"
    Const SelectObjetosByOrder As String = "SELECT * FROM OBJETOS ORDER BY ID"

    Private Sub NuevoFicheroJhiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoFicheroJhiToolStripMenuItem.Click
        CreaciónDeLaBaseDeDatos()
    End Sub

    Private Sub VerAyudaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerAyudaToolStripMenuItem.Click
        MsgBox("Ayuda aún no disponible." & Chr(13) & "Poco a poco, tío" & Chr(13) & "¡¡¡ No puedo hacerlo todo yo solo !!!" & Chr(13) & "El programa, posiblemente esté finalizado para finales del 2012, después del fin del mundo anunciado por los Mayas ;)")
    End Sub

    Private Sub RegistrarProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarProductoToolStripMenuItem.Click
        InputBox("Teclea la clave para activar el producto:")
        MsgBox("Registras el producto minuciosamente, y dentro encuentras un arenque rojo que rapidamente guardas en tu inventario, luego, recuerdas que Jhames ha dicho en el CAAD que el producto será gratuito", , "Registrando Jhinform7")
    End Sub

    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        AcercaDe.Show()
    End Sub

    Public Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LIBRERIAS.Click
        MsgBox("En el desarrollo actual de esta aplicación no se ha contemplado aún la gestión de librerías. Las que hay marcadas, son las que apareceran en el listado. Si hay que quitar o añadir librerías deberá hacerse desde el IDE de INFORM. Con las librerías actuales es necesario, que en el IDE de INFORM vayamos a la pestaña 'Settings' y en la opción 'Story File Format' se marque 'GLULX (Large a multimedia projects: most capable)', para no obtener un error.")
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(0, True)
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(1, True)
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(2, True)
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(3, True)
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(4, True)
        Librerias.CheckedListBox_LIBRERIAS.SetItemChecked(5, True)
        Librerias.Show()
    End Sub

    Private Sub AbriFicheroJhiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbriFicheroJhiToolStripMenuItem.Click
        AyudaToolStripMenuItem.Visible = True
        CargarLaBaseDeDatos()
    End Sub

    Private Sub TerminarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TerminarToolStripMenuItem.Click
        End
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_GRAFICO_LOCALIDAD.Click
        Dim AbrirDialogoDelGrafico As New OpenFileDialog()
        Dim Gráfico As String
        Dim RutaDelGráfico As String = ""

        Dim DirectorioDeImagenes As String

        DirectorioDeImagenes = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\inform\Projects\" & txt_Título_De_La_Aventura.Text & " Materials\Figures"
        AbrirDialogoDelGrafico.InitialDirectory = DirectorioDeImagenes
        If AbrirDialogoDelGrafico.ShowDialog = DialogResult.OK Then
            Gráfico = AbrirDialogoDelGrafico.FileName
            lbl_RUTA_DEL_GRAFICO_LOCALIDAD.Text = AbrirDialogoDelGrafico.SafeFileName
            RutaDelGráfico = AbrirDialogoDelGrafico.FileName
            Me.PictureBox_GRAFICO_LOCALIDAD.Image = Image.FromFile(Gráfico)
        Else
            Exit Sub
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.gráfico = " & "'" & lbl_RUTA_DEL_GRAFICO_LOCALIDAD.Text & "'" & "WHERE LOCALIDADES.nombrelocalidad=" & "'" & txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.RutaDelGráfico = " & "'" & RutaDelGráfico & "'" & "WHERE LOCALIDADES.nombrelocalidad=" & "'" & txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_GRAFICO_LOCALIDAD.Click
        lbl_RUTA_DEL_GRAFICO_LOCALIDAD.Text = ""
        Me.PictureBox_GRAFICO_LOCALIDAD.Image = Nothing
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR el SAFENAME DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.gráfico = " & "'" & "" & "'" & "WHERE LOCALIDADES.nombrelocalidad=" & "'" & txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR LA RUTA DE  LA IMAGEN D LA B.D.
        '==============================================================================================

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.RutaDelGráfico = " & "'" & "" & "'" & "WHERE LOCALIDADES.nombrelocalidad=" & "'" & txt_LOCALIDAD_NOMBRE.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Sinónimos.Click

        If Me.txt_Nombre_Objeto.Text = "" Then
            MsgBox("No has especificado ningún nombre para el objeto", , "ERROR: SIN NOMBRE DE OBJETO")
            Exit Sub
        Else
            Sinónimos.txt_SINONIMOS_Objeto.Text = Me.txt_Nombre_Objeto.Text

            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
            Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            ODbConn.Open()

            Dim SinonimosCommand As New OleDb.OleDbCommand("SELECT * FROM SINONIMOS_OBJETOS WHERE SINONIMOS_OBJETOS.objeto= " & "'" & Me.txt_Nombre_Objeto.Text & "'", ODbConn)
            Dim SinonimosDataReader As OleDb.OleDbDataReader = SinonimosCommand.ExecuteReader(CommandBehavior.CloseConnection)

            Sinónimos.lsb_SINONIMOS_Objetos.Items.Clear()
            While SinonimosDataReader.Read
                Sinónimos.lsb_SINONIMOS_Objetos.Items.Add(SinonimosDataReader.Item("sinonimo").ToString)
            End While
            SinonimosCommand.Dispose()
            ODbConn.Close()

            Sinónimos.ShowDialog()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Ver_Texto.Click

        ListarPropiedadesObjetos()

    End Sub

    Private Sub txt_Nombre_Objeto_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Nombre_Objeto.LostFocus
        txt_Nombre_Impreso_Objeto.Text = txt_Nombre_Objeto.Text
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "á", "a")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "é", "e")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "í", "i")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "ó", "o")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "ú", "u")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "Á", "A")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "É", "E")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "Í", "I")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "Ó", "O")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "Ú", "U")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "ñ", "n")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "Ñ", "N")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, """", "")
        txt_Nombre_Objeto.Text = Replace(txt_Nombre_Objeto.Text, "'", "")

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego

        'TODO: NO PERMITIR QUE SE PUEDA PONER EL NOMBRE DEL OBJETO SI NO ESTÁ EN EL LISTBOX
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.nombre = " & "'" & txt_Nombre_Objeto.Text & "'" & "WHERE OBJETOS.id= " & txt_ID_OBJETO.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()

        'SOLUCION NO ELEGANTE PERO FUNCIONA PARA CARGAR EL LISTBOX
        Dim LstCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM OBJETOS", ODbConn)
        Dim LstDataReaderLstbox As OleDb.OleDbDataReader = LstCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)
        '=============================
        ' Cargar el LISTBOX de los OBJETOS
        lstbox_OBJETOS.Items.Clear()
        While LstDataReaderLstbox.Read
            lstbox_OBJETOS.Items.Add(LstDataReaderLstbox.Item("Nombre").ToString)
        End While
        LstCommandLstbox.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Nombre_Objeto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Nombre_Objeto.TextChanged

        txt_Nombre_Objeto1.Text = txt_Nombre_Objeto.Text
        txt_Nombre_Objeto2.Text = txt_Nombre_Objeto.Text
    End Sub

    Private Sub chk_Objeto_Llave_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Llave.CheckedChanged

        If chk_Objeto_Llave.Checked = True Then
            pic_LLAVE.Visible = True
        Else
            pic_LLAVE.Visible = False
        End If

        If chk_Objeto_Llave.Checked = True Then
            cbo_PUERTA_CON_LLAVE.Visible = True
            lbl_Puerta_Que_Abre_La_LLave.Visible = True
        Else
            lbl_Puerta_Que_Abre_La_LLave.Visible = False
            cbo_PUERTA_CON_LLAVE.Visible = False
            cbo_PUERTA_CON_LLAVE.Text = ""
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LLAVE DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Llave.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.llave = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Capacidad_De_Carga_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Capacidad_De_Carga.CheckedChanged

        If chk_Objeto_Capacidad_De_Carga.Checked = True Then
            txt_Objeto_Capacidad_De_Carga.Visible = True
        Else
            txt_Objeto_Capacidad_De_Carga.Visible = False
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  CAPACIDAD DE CARGA OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Capacidad_De_Carga.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.capacidaddecarga = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub btn_Ver_Texto_Opciones_Inicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Ver_Texto_Opciones_Inicio.Click
        ListarPropiedadesIniciales()
    End Sub
    Private Sub Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Saludos
        '    datagrid_RESPUESTAS_PSIs.Rows.Add()
        '    datagrid_RESPUESTAS_PSIs.Rows.Item(0).Cells(0).Value = "Tiempo"
        '    datagrid_RESPUESTAS_PSIs.Rows.Item(1).Cells(0).Value = "Hola"

        '2ª Columna
        'datagrid_RESPUESTAS_PSIs.Rows.Item(0).Cells(1).Value = "Pues parece que hoy no va a llover"
        'datagrid_RESPUESTAS_PSIs.Rows.Item(1).Cells(1).Value = "Hi. Muy buenos días. Venga. Un bbye."


        '        datagrid_RESPUESTAS_ALEATORIAS_PSIs.Rows.Item(0).Cells(0).Value = "Lo siento, no sé nada sobre eso"
        '        datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.Rows.Item(0).Cells(0).Value = "El psi dice:"

        ' RESPUESTAS PREDEFINIDAS

        'Dim N As Integer
        'For N = 1 To 64
        '    DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Add()
        'Next

        ''Saludos
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(0).Cells(0).Value = "Saludos"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(0).Cells(1).Value = "¡Hola!¡Buenos días! Bienvenido. Me alegro de verte..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(1).Cells(0).Value = "Buen día"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(1).Cells(1).Value = "¡Hola!¡Buenos días! Bienvenido. Me alegro de verte..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(2).Cells(0).Value = "Buenos dias"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(2).Cells(1).Value = "¡Hola!¡Buenos días! Bienvenido. Me alegro de verte..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(3).Cells(0).Value = "Buenos días"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(3).Cells(1).Value = "¡Hola!¡Buenos días! Bienvenido. Me alegro de verte..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(4).Cells(0).Value = "Buenos tardes"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(4).Cells(1).Value = "¡Hola!¡Buenas tardes! Bienvenido. Me alegro de verte..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(5).Cells(0).Value = "Buenos noches"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(5).Cells(1).Value = "¡Hola!¡Buenas noches! Bienvenido. Me alegro de verte..."
        ''Saludos
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(6).Cells(0).Value = "Que tal"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(6).Cells(1).Value = "Bien. Yo bien, pero dejémonos de formalismos y pasemos a lo que de verdad interesa..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(7).Cells(0).Value = "Qué tal"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(7).Cells(1).Value = "Bien. Yo bien, pero dejémonos de formalismos y pasemos a lo que de verdad interesa..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(8).Cells(0).Value = "Cómo estás"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(8).Cells(1).Value = "Bien. Yo bien, pero dejémonos de formalismos y pasemos a lo que de verdad interesa..."
        ''Nombre
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(9).Cells(0).Value = "Cómo te llamas"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(9).Cells(1).Value = "De momento, me llamo igual que el nombre que me pusieron mis padres"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(10).Cells(0).Value = "Como te llamas"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(10).Cells(1).Value = "De momento, me llamo igual que el nombre que me pusieron mis padres"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(11).Cells(0).Value = "Cual es tu nombre"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(11).Cells(1).Value = "De momento, me llamo igual que el nombre que me pusieron mis padres"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(12).Cells(0).Value = "nombre"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(12).Cells(1).Value = "De momento, me llamo igual que el nombre que me pusieron mis padres"
        ''Despedidas
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(13).Cells(0).Value = "Adios"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(13).Cells(1).Value = "No digas adios. No me gusta. Mejor hasta luego..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(14).Cells(0).Value = "Adiós"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(14).Cells(1).Value = "No digas adios. No me gusta. Mejor hasta luego..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(15).Cells(0).Value = "Hasta luego"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(15).Cells(1).Value = "Vale, venga, nos vemos..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(16).Cells(0).Value = "Hasta siempre"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(16).Cells(1).Value = "Vale. Lo que tu digas."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(17).Cells(0).Value = "Hasta la vista"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(17).Cells(1).Value = "Seguro que nos volvemos a ver. Hasta luego."
        ''Ayuda
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(18).Cells(0).Value = "Ayuda"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(18).Cells(1).Value = "Pues en este preciso momento, no sé como podría ayudarte. Dinero no tengo. Te lo digo para que lo sepas..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(19).Cells(0).Value = "Ayúdame"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(19).Cells(1).Value = "Pues en este preciso momento, no sé como podría ayudarte. Dinero no tengo. Te lo digo para que lo sepas..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(20).Cells(0).Value = "Ayuda por favor"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(20).Cells(1).Value = "Pues en este preciso momento, no sé como podría ayudarte. Dinero no tengo. Te lo digo para que lo sepas..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(21).Cells(0).Value = "Ayúdame por favor"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(21).Cells(1).Value = "Pues en este preciso momento, no sé como podría ayudarte. Dinero no tengo. Te lo digo para que lo sepas..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(22).Cells(0).Value = "Por favor"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(22).Cells(1).Value = "Pues en este preciso momento, no sé como podría ayudarte. Dinero no tengo. Te lo digo para que lo sepas..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(23).Cells(0).Value = "Gracias"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(23).Cells(1).Value = "No se merecen, de verdad que no."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(24).Cells(0).Value = "Disculpa"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(24).Cells(1).Value = "Nada. No te preocupes, no pasa nada. Dime...¿Qué quieres?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(25).Cells(0).Value = "Felicidades"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(25).Cells(1).Value = "Gracias."
        ''Afecto
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(26).Cells(0).Value = "Te amo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(26).Cells(1).Value = "Pues yo a ti, no. Lo siento."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(27).Cells(0).Value = "Te adoro"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(27).Cells(1).Value = "Pues yo a ti, no. Lo siento."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(28).Cells(0).Value = "Te quiero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(28).Cells(1).Value = "Pues yo a ti, no. Lo siento."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(29).Cells(0).Value = "Te odio"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(29).Cells(1).Value = "Es un sentimiento mutuo y compartido."
        ''Insultos
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(30).Cells(0).Value = "Boludo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(30).Cells(1).Value = "Nunca he sabido el significado preciso de esa palabra. ¿Podrías explicármela para poder mandarte a tomar por culo?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(31).Cells(0).Value = "Boluda"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(31).Cells(1).Value = "Nunca he sabido el significado preciso de esa palabra. ¿Podrías explicármela para poder mandarte a tomar por culo?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(32).Cells(0).Value = "Pelotudo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(32).Cells(1).Value = "Nunca he sabido el significado preciso de esa palabra. ¿Podrías explicármela para poder mandarte a tomar por culo?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(33).Cells(0).Value = "Pelotuda"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(33).Cells(1).Value = "Nunca he sabido el significado preciso de esa palabra. ¿Podrías explicármela para poder mandarte a tomar por culo?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(34).Cells(0).Value = "Cabrón"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(34).Cells(1).Value = "Sí, sí. Eso es lo que dicen todos, pero el que arroje la piedra que esconda la cartera.. ¿Se dice así?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(35).Cells(0).Value = "Cabron"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(35).Cells(1).Value = "Sí, sí. Eso es lo que dicen todos, pero el que arroje la piedra que esconda la cartera.. ¿Se dice así?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(36).Cells(0).Value = "Cabrona"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(36).Cells(1).Value = "Sí, sí. Eso es lo que dicen todos, pero el que arroje la piedra que esconda la cartera.. ¿Se dice así?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(37).Cells(0).Value = "Joder"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(37).Cells(1).Value = "¡¡¡ Eso !!!  ¡¡¡ Eso !!! ¡¡¡ Yo me pido primero !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(38).Cells(0).Value = "Ostia"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(38).Cells(1).Value = "Aclaremos: ¿Bendita o de las otras?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(39).Cells(0).Value = "Ostias"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(39).Cells(1).Value = "Aclaremos: ¿Bendita o de las otras?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(40).Cells(0).Value = "Leches"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(40).Cells(1).Value = "Leches las que te voy a dar yo a ti como no termines la aventura... ¡¡¡ Bandarra !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(41).Cells(0).Value = "Vete a tomar por culo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(41).Cells(1).Value = "¿Y quién me va a dar? ¿George Clooney? ¡¡¡ Porque si es así, me voy ahora mismo !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(42).Cells(0).Value = "A tomar por culo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(42).Cells(1).Value = "¿Y quién me va a dar? ¿George Clooney? ¡¡¡ Porque si es así, me voy ahora mismo !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(43).Cells(0).Value = "Hijo de puta"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(43).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(44).Cells(0).Value = "Hija de puta"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(44).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(45).Cells(0).Value = "Maricón"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(45).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(46).Cells(0).Value = "Maricon"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(46).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(47).Cells(0).Value = "Maricona"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(47).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(48).Cells(0).Value = "Desgraciado"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(48).Cells(1).Value = "Buaaaa... buaaaa.... Sí. Lo soy. ¿Qué pasa?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(49).Cells(0).Value = "Desgraciada"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(49).Cells(1).Value = "Buaaaa... buaaaa.... Sí. Lo soy. ¿Qué pasa?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(50).Cells(0).Value = "Gay"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(50).Cells(1).Value = "Buaaaa... buaaaa.... Sí. Lo soy. ¿Qué pasa?"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(51).Cells(0).Value = "La madre que te parió"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(51).Cells(1).Value = "¡¡¡ Una santa !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(52).Cells(0).Value = "La madre que te pario"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(52).Cells(1).Value = "¡¡¡ Una santa !!!"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(53).Cells(0).Value = "Me cago en tu puta madre"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(53).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(54).Cells(0).Value = "Cerdo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(54).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(55).Cells(0).Value = "Cerda"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(55).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(56).Cells(0).Value = "Idiota"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(56).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(57).Cells(0).Value = "Imbécil"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(57).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(58).Cells(0).Value = "Estúpido"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(58).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(59).Cells(0).Value = "Estúpida"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(59).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(60).Cells(0).Value = "Cornudo"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(60).Cells(1).Value = "Y si lo soy: ¿Qué pasa?. Déjala que disfrute..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(61).Cells(0).Value = "Cornuda"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(61).Cells(1).Value = "Y si lo soy: ¿Qué pasa?. Déjalo que disfrute..."
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(62).Cells(0).Value = "Mal nacido"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(62).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(63).Cells(0).Value = "Mal nacida"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(63).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(64).Cells(0).Value = "Afeminado"
        'DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.Rows.Item(64).Cells(1).Value = "Hmmm... no voy a comentar esa frase. Grosero"

    End Sub

    Private Sub txt_Descripción_De_La_Historia_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Descripción_De_La_Historia.LostFocus

        txt_Descripción_De_La_Historia.Text = Replace(txt_Descripción_De_La_Historia.Text, """", "")
        txt_Descripción_De_La_Historia.Text = Replace(txt_Descripción_De_La_Historia.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la DESCRIPCIÓN DE LA HISTORIA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba la DESCRIPCIÓN DE LA HISTORIA
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.DescripcionDeLaHistoria = " & "'" & txt_Descripción_De_La_Historia.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub btn_PSIS_VER_TEXTO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ListarPsis()
    End Sub

    Private Sub btn_VER_TEXTO_MAPA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_VER_TEXTO_MAPA.Click

        MsgBox("La opción GENERAR MAPA, aún no está terminada. Está en la lista TODO", , "ADVERTENCIA")
        GenerarMapa()
    End Sub


    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_FUENTE_MAPA.Click

        FontDialog1.ShowDialog()
        lbl_FUENTE_MAPA.Text = FontDialog1.Font.Name
    End Sub

    Private Sub TabMAPA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabMAPA.Click

    End Sub

    Private Sub btn_FUENTE_DEL_TÍTULO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_FUENTE_DEL_TÍTULO.Click
        FontDialog1.ShowDialog()
        lbl_FUENTE_DEL_TÍTULO.Text = FontDialog1.Font.Name
    End Sub

    Private Sub btn_FILTRAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_FILTRAR.Click
        FiltrarTextoFuente()
    End Sub

    Private Sub DeshacerToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_ORIGINAL.Undo()
    End Sub

    Private Sub CortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_ORIGINAL.Cut()
    End Sub

    Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_ORIGINAL.Copy()
    End Sub

    Private Sub PegarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_ORIGINAL.Paste()
    End Sub

    Private Sub SeleccionarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_ORIGINAL.SelectAll()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        rtxt_TEXTO_FUENTE_ORIGINAL.Undo()
    End Sub

    Private Sub CopiarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_FILTRADO.Copy()
    End Sub

    Private Sub SeleccionarTodoToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_FILTRADO.SelectAll()
    End Sub

    Private Sub DeshacerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_FILTRADO.Undo()
    End Sub

    Private Sub CortarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_FILTRADO.Cut()
    End Sub

    Private Sub PegarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rtxt_TEXTO_FUENTE_FILTRADO.Paste()
    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        rtxt_TEXTO_FUENTE_FILTRADO.Undo()
    End Sub

    Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
        rtxt_TEXTO_FUENTE_FILTRADO.Cut()
    End Sub

    Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
        rtxt_TEXTO_FUENTE_FILTRADO.Copy()
    End Sub

    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
        rtxt_TEXTO_FUENTE_FILTRADO.Paste()
    End Sub

    Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click
        rtxt_TEXTO_FUENTE_FILTRADO.SelectAll()
    End Sub

    Private Sub CortarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem1.Click
        rtxt_TEXTO_FUENTE_ORIGINAL.Cut()
    End Sub

    Private Sub CopiarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem1.Click
        rtxt_TEXTO_FUENTE_ORIGINAL.Copy()
    End Sub

    Private Sub PegarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PegarToolStripMenuItem1.Click
        rtxt_TEXTO_FUENTE_ORIGINAL.Paste()
    End Sub

    Private Sub SeleccionarTodoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeleccionarTodoToolStripMenuItem1.Click
        rtxt_TEXTO_FUENTE_ORIGINAL.SelectAll()
    End Sub

    Private Sub FiltrarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FiltrarToolStripMenuItem1.Click
        FiltrarTextoFuente()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        SinonimosPSIs.txt_SINONIMOS_PSIS.Text = datagrid_RESPUESTAS_PSIs.CurrentCell.Value
        Sinónimos.btn_SINONIMOS_Añadir.Focus()
        SinonimosPSIs.ShowDialog()
    End Sub

    Private Sub btn_PSIS_VER_TEXTO_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PSIS_VER_TEXTO.Click
        ListarPsis()
    End Sub

    Private Sub datagrid_RESPUESTAS_PSIs_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

        'Respuestas.rtb_TEXTO_RESPUESTA.Text = datagrid_RESPUESTAS_PSIs.CurrentCell.Value.ToString
        'DataGridQueLlamaARespuestas = "datagrid_RESPUESTAS_PSIs"
        'Respuestas.ShowDialog()
    End Sub

    Private Sub datagrid_PRERESPUESTAS_ALEATORIAS_PSIs_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.CellDoubleClick
        'Respuestas.rtb_TEXTO_RESPUESTA.Text = datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.CurrentCell.Value
        ''TODO: errror ... poner trys
        'DataGridQueLlamaARespuestas = "datagrid_PRERESPUESTAS_ALEATORIAS_PSIs"
        'Respuestas.ShowDialog()
    End Sub

    Private Sub datagrid_RESPUESTAS_ALEATORIAS_PSIs_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles datagrid_RESPUESTAS_ALEATORIAS_PSIs.CellDoubleClick
        ' Respuestas.rtb_TEXTO_RESPUESTA.Text = datagrid_RESPUESTAS_ALEATORIAS_PSIs.CurrentCell.Value.ToString
        'DataGridQueLlamaARespuestas = "datagrid_RESPUESTAS_ALEATORIAS_PSIs"
        'Respuestas.ShowDialog()
    End Sub

    Private Sub DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.CellDoubleClick
        'Respuestas.rtb_TEXTO_RESPUESTA.Text = DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS.CurrentCell.Value.ToString
        'DataGridQueLlamaARespuestas = "DataGrid_PSIS_RESPUESTAS_PREDEFINIDAS"
        'Respuestas.ShowDialog()
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PSIS_Sinonimos.Click

        If Me.txt_Nombre_PSI.Text = "" Then
            MsgBox("No has especificado ningún nombre para el PSI", , "ERROR: SIN NOMBRE DE PSI")
            Exit Sub
        Else
            SinonimosPSIs.txt_SINONIMOS_PSIS.Text = txt_Nombre_PSI.Text

            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
            Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            ODbConn.Open()

            Dim SinonimosCommand As New OleDb.OleDbCommand("SELECT * FROM SINONIMOS_PSI WHERE SINONIMOS_PSI.psi= " & "'" & Me.txt_Nombre_PSI.Text & "'", ODbConn)
            Dim SinonimosDataReader As OleDb.OleDbDataReader = SinonimosCommand.ExecuteReader(CommandBehavior.CloseConnection)

            SinonimosPSIs.lsb_SINONIMOS_PSIS.Items.Clear()
            While SinonimosDataReader.Read
                SinonimosPSIs.lsb_SINONIMOS_PSIS.Items.Add(SinonimosDataReader.Item("sinonimo").ToString)
            End While
            'Libera memoria
            SinonimosCommand.Dispose()
            ODbConn.Close()
            SinonimosPSIs.ShowDialog()
        End If
    End Sub

    Private Sub Button6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Se llama al Procedimiento almacenado en Module1, para cargar el datagrid
        Cargar(datagrid_RESPUESTAS_PSIs, "Topic.xls", "Topic") ' Nombre datagrid, Nombre Hoja de Calculo, Nombre de la Hoja
    End Sub

    Private Sub CargarFicheroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarFicheroToolStripMenuItem.Click

        Dim DialogOpenFileNI As New OpenFileDialog()
        Dim PathFicheroStoryNI As String
        Dim RespuestaDialogo As String


        DialogOpenFileNI.DefaultExt = ".ni"
        DialogOpenFileNI.Filter = "Archivos Story(*.ni)|*.ni|Todos los Archivos(*.*)|*.*"
        DialogOpenFileNI.InitialDirectory = Application.ExecutablePath
        DialogOpenFileNI.Title = "Cargar fichero Story.ni"
        RespuestaDialogo = DialogOpenFileNI.ShowDialog
        PathFicheroStoryNI = DialogOpenFileNI.FileName
        If RespuestaDialogo = DialogResult.Cancel Then
            Exit Sub
        End If
        Dim sr As New System.IO.StreamReader(PathFicheroStoryNI, System.Text.Encoding.UTF8)
        If RespuestaDialogo = DialogResult.OK Then
            rtxt_TEXTO_FUENTE_ORIGINAL.Text = sr.ReadToEnd
            sr.Close()
        ElseIf RespuestaDialogo = DialogResult.Cancel Then
            Exit Sub
        Else

        End If
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_GRAFICO_OBJETOS.Click
        Dim AbrirDialogoDelGrafico As New OpenFileDialog()
        Dim RutaDelGráfico As String = ""
        Dim DirectorioDeImagenes As String

        DirectorioDeImagenes = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\inform\Projects\" & txt_Título_De_La_Aventura.Text & " Materials\Figures"
        AbrirDialogoDelGrafico.InitialDirectory = DirectorioDeImagenes

        If AbrirDialogoDelGrafico.ShowDialog = DialogResult.OK Then
            RutaDelGráfico = AbrirDialogoDelGrafico.FileName
            lbl_RUTA_DEL_GRAFICO_OBJETOS.Text = AbrirDialogoDelGrafico.SafeFileName
            Me.PictureBox_GRAFICO_OBJETOS.Image = Image.FromFile(RutaDelGráfico)
        Else
            Exit Sub
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.gráficoobjeto = " & "'" & lbl_RUTA_DEL_GRAFICO_OBJETOS.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.RutaGráficoObjeto = " & "'" & RutaDelGráfico & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub PictureBox_GRAFICO_PSIS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_GRAFICO_PSIS.Click
        Dim AbrirDialogoDelGrafico As New OpenFileDialog()
        Dim RutaDelGráfico As String = ""

        Dim DirectorioDeImagenes As String

        DirectorioDeImagenes = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\inform\Projects\" & txt_Título_De_La_Aventura.Text & " Materials\Figures"
        AbrirDialogoDelGrafico.InitialDirectory = DirectorioDeImagenes
        If AbrirDialogoDelGrafico.ShowDialog = DialogResult.OK Then
            RutaDelGráfico = AbrirDialogoDelGrafico.FileName
            lbl_RUTA_DEL_GRAFICO_PSIs.Text = AbrirDialogoDelGrafico.SafeFileName
            'CONTROL GRAFICOS DEL PSI - CGPSI
            Me.PictureBox_GRAFICO_PSIS.Image = Image.FromFile(RutaDelGráfico)
            Me.PictureBoxPSIS_RESPUESTAS_ALEATORIAS.Image = Image.FromFile(RutaDelGráfico)
            Me.pbox_PSI_TOPICOS_Y_RESPUESTAS.Image = Image.FromFile(RutaDelGráfico)
            AñadirTopicosYRespuestas.pbox_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.Image = Image.FromFile(RutaDelGráfico)
        Else
            Exit Sub
            '-------------------------
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.graficopsi = " & "'" & lbl_RUTA_DEL_GRAFICO_PSIs.Text & "'" & "WHERE PSIS.nombrePSI=" & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.RutaGraficoPSI = " & "'" & RutaDelGráfico & "'" & "WHERE PSIS.nombrePSI=" & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_VERBO_EN_INFINITIVO.TextChanged

        rtxt_NUEVA_ACCION.Text = txt_VERBO_EN_INFINITIVO.Text & "ing" & " is an action applying to one thing."
        If cbo_NUEVA_ACCION.Text <> "" Then
            Dim Verbo_Sin_R_Final As String
            Dim Longitud_del_verbo As Integer
            Longitud_del_verbo = Len(txt_VERBO_EN_INFINITIVO.Text)
            Verbo_Sin_R_Final = Microsoft.VisualBasic.Left(txt_VERBO_EN_INFINITIVO.Text, Longitud_del_verbo - 1)
            Verbo_Sin_R_Final = Verbo_Sin_R_Final & "ing"
            rtxt_NUEVA_ACCION.Text = rtxt_NUEVA_ACCION.Text & Chr(10)
            rtxt_NUEVA_ACCION.Text = rtxt_NUEVA_ACCION.Text & "Understand " & """" & Verbo_Sin_R_Final & " [something]" & " as " & cbo_NUEVA_ACCION.Text
        End If
    End Sub

    Private Sub cbo_NUEVA_ACCION_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_NUEVA_ACCION.SelectedIndexChanged
        If txt_VERBO_EN_INFINITIVO.Text <> "" Then
            Dim Verbo_Sin_R_Final As String
            Dim Longitud_del_verbo As Integer
            Longitud_del_verbo = Len(txt_VERBO_EN_INFINITIVO.Text)
            Verbo_Sin_R_Final = Microsoft.VisualBasic.Left(txt_VERBO_EN_INFINITIVO.Text, Longitud_del_verbo - 1)
            rtxt_NUEVA_ACCION.Text = rtxt_NUEVA_ACCION.Text & Chr(10)
            rtxt_NUEVA_ACCION.Text = rtxt_NUEVA_ACCION.Text & "Understand " & """" & Verbo_Sin_R_Final & " [something]" & " as " & cbo_NUEVA_ACCION.Text
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_GRAFICO_OBJETO.Click
        lbl_RUTA_DEL_GRAFICO_OBJETOS.Text = ""
        Me.PictureBox_GRAFICO_OBJETOS.Image = Nothing

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR el SAFENAME DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.gráficoobjeto = " & "'" & "" & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR LA RUTA DE  LA IMAGEN D LA B.D.
        '==============================================================================================

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.RutaGráficoObjeto = " & "'" & "" & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_GRAFICO_PSI.Click
        lbl_RUTA_DEL_GRAFICO_PSIs.Text = ""

        'CONTROL GRAFICOS DEL PSI - CGPSI
        Me.PictureBox_GRAFICO_PSIS.Image = Nothing
        Me.PictureBoxPSIS_RESPUESTAS_ALEATORIAS.Image = Nothing
        Me.pbox_PSI_TOPICOS_Y_RESPUESTAS.Image = Nothing
        AñadirTopicosYRespuestas.pbox_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.Image = Nothing
        '-----------------------------------------

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR el SAFENAME DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.graficoPSI = " & "'" & "" & "'" & "WHERE PSIS.nombrePSI=" & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR LA RUTA DE  LA IMAGEN D LA B.D.
        '==============================================================================================

        Dim LACommandRutaGrafico As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.RutaGraficoPSI = " & "'" & "" & "'" & "WHERE PSIS.nombrePSI=" & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReaderRutaGrafico As OleDbDataReader = LACommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        LACommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub cbo_ARTICULO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_ARTICULO.LostFocus
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el ARTÍCULO DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.articulo = " & "'" & cbo_ARTICULO.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub cbo_ARTICULO_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_ARTICULO.SelectedIndexChanged
        If cbo_ARTICULO.Text = "la" Or cbo_ARTICULO.Text = "una" Or cbo_ARTICULO.Text = "unas" Or cbo_ARTICULO.Text = "algunas" Then
            chk_Objeto_Femenino.Checked = True
        Else
            chk_Objeto_Femenino.Checked = False
        End If
    End Sub

    Private Sub txt_Nombre_PSI_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Nombre_PSI.LostFocus

        'Eliminar caracteres complicados
        txt_PSI_NOMBRE_IMPRESO.Text = txt_Nombre_PSI.Text
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "á", "a")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "é", "e")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "í", "i")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "ó", "o")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "ú", "u")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "Á", "A")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "É", "E")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "Í", "I")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "Ó", "O")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "Ú", "U")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "ñ", "n")
        txt_Nombre_PSI.Text = Replace(txt_Nombre_PSI.Text, "Ñ", "N")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DEL PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.nombrepsi = " & "'" & txt_Nombre_PSI.Text & "'" & "WHERE PSIS.id= " & txt_ID_PSI.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()

        'SOLUCION NO ELEGANTE PERO FUNCIONA PARA CARGAR EL LISTBOX
        Dim LstCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM PSIS", ODbConn)
        Dim LstDataReaderLstbox As OleDb.OleDbDataReader = LstCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)
        '=============================
        ' Cargar el LISTBOX de los OBJETOS
        lst_PSIS.Items.Clear()
        While LstDataReaderLstbox.Read
            lst_PSIS.Items.Add(LstDataReaderLstbox.Item("NombrePSI").ToString)
        End While
        LstCommandLstbox.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub txt_Nombre_Psi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Nombre_PSI.TextChanged
        txt_PSI_TOPICOS_TABULADOS.Text = txt_Nombre_PSI.Text
        AñadirTopicosYRespuestas.lbl_NOMBRE_PSI_AÑADIR_TOPICOS_Y_RESPUESTAS.Text = txt_Nombre_PSI.Text
        txt_PSIS_INSTEAD.Text = txt_Nombre_PSI.Text
        txt_PSI_RESP_PREDEFINIDAS.Text = txt_Nombre_PSI.Text
        txt_PSI_PRE_RESPUESTAS_ALEATORIAS.Text = txt_Nombre_PSI.Text
        lbl_PSI_COGER.Text = txt_Nombre_PSI.Text
    End Sub

    Private Sub txt_PSI_OBJETO_QUE_SE_LE_DA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_PSI_OBJETO_QUE_SE_LE_DA.TextChanged
        If txt_PSI_OBJETO_QUE_SE_LE_DA.Text <> "" Then
            lbl_PSI_DAR_OBJETO.ForeColor = Color.DarkBlue
            lbl_PSI_DAR_OBJETO.Text = txt_Nombre_PSI.Text
        Else
            lbl_PSI_DAR_OBJETO.ForeColor = Color.Black
            lbl_PSI_DAR_OBJETO.Text = ""
        End If
    End Sub

    Private Sub btn_LOCALIDADES_GENERAR_CODIGO_INFORM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_LOCALIDADES_GENERAR_CODIGO_INFORM.Click
        ListarPropiedadesLocalidad()
    End Sub

    Private Sub chk_PUERTA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_PUERTA.CheckedChanged
        If chk_PUERTA.Checked = True Then
            chk_OSCURA.Visible = False
            chk_PUERTA_NO_APERTURABLE.Visible = True
            chk_PUERTA_ABIERTA.Visible = True
            chk_PUERTA_CON_CERROJO.Visible = True
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = True
        End If
        If chk_PUERTA.Checked = False Then
            chk_OSCURA.Visible = True
            chk_PUERTA_NO_APERTURABLE.Visible = False
            chk_PUERTA_ABIERTA.Visible = False
            chk_PUERTA_CON_CERROJO.Visible = False
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = False
        End If

    End Sub


    Private Sub txt_Título_De_La_Aventura_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Título_De_La_Aventura.LostFocus
        txt_Título_De_La_Aventura.Text = Replace(txt_Título_De_La_Aventura.Text, """", "")
        txt_Título_De_La_Aventura.Text = Replace(txt_Título_De_La_Aventura.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el TÍTULO DE LA AVENTURA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()


        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.NombreDelJuego = " & "'" & txt_Título_De_La_Aventura.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Autor_De_La_Aventura_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Autor_De_La_Aventura.LostFocus

        txt_Autor_De_La_Aventura.Text = Replace(txt_Autor_De_La_Aventura.Text, """", "")
        txt_Autor_De_La_Aventura.Text = Replace(txt_Autor_De_La_Aventura.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el AUTOR DE LA AVENTURA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el autor
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.Autor = " & "'" & txt_Autor_De_La_Aventura.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Trama_de_la_historia_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Trama_de_la_historia.LostFocus
        txt_Trama_de_la_historia.Text = Replace(txt_Trama_de_la_historia.Text, """", "")
        txt_Trama_de_la_historia.Text = Replace(txt_Trama_de_la_historia.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la TRAMA DE LA HISTORIA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba la trama
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.TramaDeLaHistoria = " & "'" & txt_Trama_de_la_historia.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Version_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Version.LostFocus
        txt_Version.Text = Replace(txt_Version.Text, """", "")
        txt_Version.Text = Replace(txt_Version.Text, "'", "")
        txt_Version.Text = Replace(txt_Version.Text, ".", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la VERSIÓN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba la versión
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.VersionJuego = " & "'" & txt_Version.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Año_Creación_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Año_Creación.LostFocus

        txt_Año_Creación.Text = Replace(txt_Año_Creación.Text, """", "")
        txt_Año_Creación.Text = Replace(txt_Año_Creación.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el AÑO DE CREACIÓN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL AÑO DE CREACIÓN
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.AñoCreacion = " & "'" & txt_Año_Creación.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub rbtn_DESCRIPCION_LOCALIDAD_ABREVIADA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn_DESCRIPCION_LOCALIDAD_ABREVIADA.CheckedChanged

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK DE LA DESCR. LOCA. ABREV. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = rbtn_DESCRIPCION_LOCALIDAD_ABREVIADA.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK DE LA DESCR. LOCA. ABREV.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.DescLocalAbrev = " & valordelcheck, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub rbtn_DESCRIPCION_LOCALIDAD_COMPLETA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn_DESCRIPCION_LOCALIDAD_COMPLETA.CheckedChanged
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK DE LA DESCR. LOCA. COMPLETA. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = rbtn_DESCRIPCION_LOCALIDAD_COMPLETA.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK DE LA DESCR. LOCA. COMPLETA.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.DescLocalCompleta = " & valordelcheck, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_MARCADOR_DE_PUNTOS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_MARCADOR_DE_PUNTOS.CheckedChanged
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK de MARCADOR DE PUNTOS. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_MARCADOR_DE_PUNTOS.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.MarcadorPuntos = " & valordelcheck, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_PREVENCION_DE_DESHACER_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_PREVENCION_DE_DESHACER.CheckedChanged
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK DE PREVENCIÓN DE UNDO. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_PREVENCION_DE_DESHACER.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK DE PREVENCIÓN DE UNDO
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.PrevencionUndo = " & valordelcheck, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_LOCALIDAD_DESCRIPCION_INICIAL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_LOCALIDAD_DESCRIPCION_INICIAL.LostFocus

        'Procedimiento para comprobar el punto final
        txt_LOCALIDAD_DESCRIPCION_INICIAL.Text = Replace(txt_LOCALIDAD_DESCRIPCION_INICIAL.Text, "'", """")
        txt_LOCALIDAD_DESCRIPCION_INICIAL.Text = CombrobarPuntoFinal(txt_LOCALIDAD_DESCRIPCION_INICIAL.Text)
        If txt_LOCALIDAD_DESCRIPCION_INICIAL.Text = "." Then
            txt_LOCALIDAD_DESCRIPCION_INICIAL.Text = ""
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LA DESCRIPCION INICIAL DE LA LOCALIDAD EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.Descripción_Inicial = " & "'" & txt_LOCALIDAD_DESCRIPCION_INICIAL.Text & "'" & "WHERE LOCALIDADES.ID=" & txt_ID.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.LostFocus
        'Procedimiento para comprobar el punto final
        txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text = Replace(txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text, "'", """")
        txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text = CombrobarPuntoFinal(txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text)
        If txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text = "." Then
            txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text = ""
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LA DESCRIPCION DE LA LOCALIDAD UNA VEZ VISITADA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.Descripción_Una_Vez_Visitada = " & "'" & txt_LOCALIDAD_DESCRIPCION_UNA_VEZ_VISITADA.Text & "'" & "WHERE LOCALIDADES.ID=" & txt_ID.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub cbo_SUBIR_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SUBIR.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO SUBIR con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_SUBIR.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_SUBIR.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_SUBIR.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        cmd.Dispose()
        ComboCommand.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_SUBIR.Text
    End Sub


    Private Sub txt_LOCALIDAD_NOMBRE_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_LOCALIDAD_NOMBRE.LostFocus

        txt_LOCALIDAD_NOMBRE.Text = Replace(txt_LOCALIDAD_NOMBRE.Text, """", "")
        txt_LOCALIDAD_NOMBRE.Text = Replace(txt_LOCALIDAD_NOMBRE.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL NOMBRE DE LA LOCALIDAD EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NombreLocalidad = " & "'" & txt_LOCALIDAD_NOMBRE.Text & "'" & "WHERE LOCALIDADES.ID=" & txt_ID.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()

        'SOLUCION NO ELEGANTE PERO FUNCIONA PARA CARGAR EL LISTBOX


        Dim LstLOCALIDADESCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn) ' WHERE ID =" & varNombreLoc, ODbConn)
        Dim LstLOCALIDADESDataReaderLstbox As OleDb.OleDbDataReader = LstLOCALIDADESCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        '=============================
        ' Cargar el LISTBOX de las LOCALIDADES

        lst_LOCALIDADES.Items.Clear()
        While LstLOCALIDADESDataReaderLstbox.Read
            lst_LOCALIDADES.Items.Add(LstLOCALIDADESDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While
        LstLOCALIDADESCommandLstbox.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_LOCALIDAD_NOMBRE_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_LOCALIDAD_NOMBRE.TextChanged

        txt_LOCALIDAD_ACTUAL.Text = txt_LOCALIDAD_NOMBRE.Text
        InsteadLocalidades.txt_NOMBRE_LOCALIDAD_EN_INSTEAD.Text = txt_LOCALIDAD_NOMBRE.Text
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        ' Cargar el COMBOBOX de LOCALIZACION DE OBJETOS

        Dim LOCALIZACION_OBJETOSCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn) ' WHERE ID =" & varNombreLoc, ODbConn)
        Dim LOCALIZACIONOBJETOSDataReaderLstbox As OleDb.OleDbDataReader = LOCALIZACION_OBJETOSCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        Me.cbo_LOCALIZACION_OBJETO.Items.Clear()
        Me.cbo_LOCALIZACION_OBJETO.Items.Add("")
        Me.cbo_LOCALIZACION_OBJETO.Items.Add("here")
        While LOCALIZACIONOBJETOSDataReaderLstbox.Read
            Me.cbo_LOCALIZACION_OBJETO.Items.Add(LOCALIZACIONOBJETOSDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While
        LOCALIZACION_OBJETOSCommandLstbox.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_NW_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_NW.SelectionChangeCommitted

        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo NOROESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)
        
        NombreLocElegido = cbo_NW.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim NOCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim NODataReader As OleDb.OleDbDataReader = NOCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim NOLocElegida As String = ""
        While NODataReader.Read
            NOLocElegida = NODataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = NOLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim NO1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NW = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim NO1DataReader As OleDbDataReader = NO1Command.ExecuteReader(CommandBehavior.SingleRow)
            NO1Command.Dispose()
        Else
            Dim NO1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NW = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim NO1DataReader As OleDbDataReader = NO1Command.ExecuteReader(CommandBehavior.SingleRow)
            NO1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim NO2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SE = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim NO2DataReader As OleDbDataReader = NO2Command.ExecuteReader(CommandBehavior.SingleRow)
            NO2Command.Dispose()
        Else
            Dim NO2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SE = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim NO2DataReader As OleDbDataReader = NO2Command.ExecuteReader(CommandBehavior.SingleRow)
            NO2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        NOCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub ToolStripButtonNUEVALOCALIDAD_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonNUEVALOCALIDAD.Click
        CrearNuevaLocalidad()
    End Sub

    Private Sub CrearNuevaLocalidadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrearNuevaLocalidadToolStripMenuItem.Click
        CrearNuevaLocalidad()
    End Sub

    Private Sub ComandosDeTesteoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComandosDeTesteoToolStripMenuItem.Click
        AyudaTesteo.ShowDialog()
    End Sub

    Private Sub lst_LOCALIDADES_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_LOCALIDADES.SelectedIndexChanged
        CargarLaBaseDeDatosDesdeListboxLocalidades()
    End Sub

    Private Sub chk_PUERTA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_PUERTA.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK de PUERTA. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_PUERTA.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.puerta = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de CARGAR EL COMBO PUERTA CON LLAVE
        '==============================================================================================

        'Se establece la conexión con la base de datos.

        Dim LstLOCALIDADESCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE PUERTA = " & True, ODbConn)
        Dim LstLOCALIDADESDataReaderLstbox As OleDb.OleDbDataReader = LstLOCALIDADESCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        cbo_PUERTA_CON_LLAVE.Items.Clear()
        While LstLOCALIDADESDataReaderLstbox.Read
            cbo_PUERTA_CON_LLAVE.Items.Add(LstLOCALIDADESDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While
        LstLOCALIDADESCommandLstbox.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub chk_OSCURA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_OSCURA.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar PUERTA OSCURA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_OSCURA.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.oscura = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_PUERTA_NO_APERTURABLE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_PUERTA_NO_APERTURABLE.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar PUERTA NO APERTUTABLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_PUERTA_NO_APERTURABLE.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.no_aperturable = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_PUERTA_ABIERTA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_PUERTA_ABIERTA.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar PUERTA ABIERTA EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_PUERTA_ABIERTA.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.abierta = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_PUERTA_PUESTO_EL_CERROJO_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_PUERTA_PUESTO_EL_CERROJO.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar PUERTA PUESTO EL CERROJO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_PUERTA_PUESTO_EL_CERROJO.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.Puesto_El_Cerrojo = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub cbo_NW_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cbo_NW.KeyPress
        Dim x As Char = e.KeyChar
        e.KeyChar = ChrW(System.Windows.Forms.Keys.None)
    End Sub

    Private Sub cbo_N_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_N.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO NORTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_N.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_N.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_N.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_N.Text
    End Sub

    Private Sub cbo_N_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_N.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo NORTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String

        NombreLocElegido = cbo_N.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim NCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim NDataReader As OleDb.OleDbDataReader = NCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim NLocElegida As String = ""
        While NDataReader.Read
            NLocElegida = NDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = NLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim N1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.N = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim N1DataReader As OleDbDataReader = N1Command.ExecuteReader(CommandBehavior.SingleRow)
            N1Command.Dispose()
        Else
            Dim N1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.N = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim N1DataReader As OleDbDataReader = N1Command.ExecuteReader(CommandBehavior.SingleRow)
            N1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim N2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.S = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim N2DataReader As OleDbDataReader = N2Command.ExecuteReader(CommandBehavior.SingleRow)
            N2Command.Dispose()
        Else
            Dim N2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.S = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim N2DataReader As OleDbDataReader = N2Command.ExecuteReader(CommandBehavior.SingleRow)
            N2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        NCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_NE_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_NE.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO NORESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_NE.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_NE.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_NE.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_NE.Text
    End Sub

    Private Sub cbo_NE_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_NE.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo NORESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String

        NombreLocElegido = cbo_NE.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim NECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim NEDataReader As OleDb.OleDbDataReader = NECommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim NELocElegida As String = ""
        While NEDataReader.Read
            NELocElegida = NEDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = NELocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim NE1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NE = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim NE1DataReader As OleDbDataReader = NE1Command.ExecuteReader(CommandBehavior.SingleRow)
            NE1Command.Dispose()
        Else
            Dim NE1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NE = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim NE1DataReader As OleDbDataReader = NE1Command.ExecuteReader(CommandBehavior.SingleRow)
            NE1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim NE2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SW = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim NE2DataReader As OleDbDataReader = NE2Command.ExecuteReader(CommandBehavior.SingleRow)
            NE2Command.Dispose()
        Else
            Dim NE2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SW = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim NE2DataReader As OleDbDataReader = NE2Command.ExecuteReader(CommandBehavior.SingleRow)
            NE2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        NECommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_W_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_W.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO OESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_W.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_W.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_W.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_W.Text
    End Sub

    Private Sub cbo_W_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_W.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo OESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String


        NombreLocElegido = cbo_W.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim WCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim WDataReader As OleDb.OleDbDataReader = WCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim WLocElegida As String = ""
        While WDataReader.Read
            WLocElegida = WDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = WLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim W1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.W = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim W1DataReader As OleDbDataReader = W1Command.ExecuteReader(CommandBehavior.SingleRow)
            W1Command.Dispose()
        Else
            Dim W1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.W = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim W1DataReader As OleDbDataReader = W1Command.ExecuteReader(CommandBehavior.SingleRow)
            W1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim W2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.E = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim W2DataReader As OleDbDataReader = W2Command.ExecuteReader(CommandBehavior.SingleRow)
            W2Command.Dispose()
        Else
            Dim W2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.E = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim W2DataReader As OleDbDataReader = W2Command.ExecuteReader(CommandBehavior.SingleRow)
            W2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        WCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_ENTRAR_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_ENTRAR.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO ENTRAR con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_ENTRAR.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_ENTRAR.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_ENTRAR.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_ENTRAR.Text
    End Sub

    Private Sub cbo_ENTRAR_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_ENTRAR.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo ENTRAR de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)

        NombreLocElegido = cbo_ENTRAR.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim ENTRARCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim ENTRARDataReader As OleDb.OleDbDataReader = ENTRARCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim ENTRARLocElegida As String = ""
        While ENTRARDataReader.Read
            ENTRARLocElegida = ENTRARDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = ENTRARLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim ENTRAR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.entrar = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim ENTRAR1DataReader As OleDbDataReader = ENTRAR1Command.ExecuteReader(CommandBehavior.SingleRow)
            ENTRAR1Command.Dispose()
        Else
            Dim ENTRAR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.entrar = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim ENTRAR1DataReader As OleDbDataReader = ENTRAR1Command.ExecuteReader(CommandBehavior.SingleRow)
            ENTRAR1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim ENTRAR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.salir = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim ENTRAR2DataReader As OleDbDataReader = ENTRAR2Command.ExecuteReader(CommandBehavior.SingleRow)
            ENTRAR2Command.Dispose()
        Else
            Dim ENTRAR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.salir = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim ENTRAR2DataReader As OleDbDataReader = ENTRAR2Command.ExecuteReader(CommandBehavior.SingleRow)
            ENTRAR2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        ENTRARCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_E_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_E.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO ESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_E.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_E.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_E.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_E.Text
    End Sub

    Private Sub cbo_E_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_E.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo ESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)

        NombreLocElegido = cbo_E.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim ECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim EDataReader As OleDb.OleDbDataReader = ECommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim ELocElegida As String = ""
        While EDataReader.Read
            ELocElegida = EDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = ELocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim E1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.E = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim E1DataReader As OleDbDataReader = E1Command.ExecuteReader(CommandBehavior.SingleRow)
            E1Command.Dispose()
        Else
            Dim E1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.E = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim E1DataReader As OleDbDataReader = E1Command.ExecuteReader(CommandBehavior.SingleRow)
            E1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim E2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.W = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim EO2DataReader As OleDbDataReader = E2Command.ExecuteReader(CommandBehavior.SingleRow)
            E2Command.Dispose()
        Else
            Dim E2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.W = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim E2DataReader As OleDbDataReader = E2Command.ExecuteReader(CommandBehavior.SingleRow)
            E2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        ECommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub cbo_SW_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SW.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO SUROESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_SW.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_SW.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_SW.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_SW.Text
    End Sub

    Private Sub cbo_SW_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SW.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo SUROESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String

        NombreLocElegido = cbo_SW.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim SWCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim SWDataReader As OleDb.OleDbDataReader = SWCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim SWLocElegida As String = ""
        While SWDataReader.Read
            SWLocElegida = SWDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = SWLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim SW1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SW = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim SW1DataReader As OleDbDataReader = SW1Command.ExecuteReader(CommandBehavior.SingleRow)
            SW1Command.Dispose()
        Else
            Dim SW1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SW = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim SW1DataReader As OleDbDataReader = SW1Command.ExecuteReader(CommandBehavior.SingleRow)
            SW1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim SW2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NE = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim SW2DataReader As OleDbDataReader = SW2Command.ExecuteReader(CommandBehavior.SingleRow)
            SW2Command.Dispose()
        Else
            Dim SW2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NE = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim SW2DataReader As OleDbDataReader = SW2Command.ExecuteReader(CommandBehavior.SingleRow)
            SW2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        SWCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_S_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_S.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO SUR con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_S.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_S.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_S.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_S.Text
    End Sub

    Private Sub cbo_S_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_S.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo SUR de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)

        NombreLocElegido = cbo_S.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim SCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim SDataReader As OleDb.OleDbDataReader = SCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim SLocElegida As String = ""
        While SDataReader.Read
            SLocElegida = SDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = SLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim S1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.S = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim S1DataReader As OleDbDataReader = S1Command.ExecuteReader(CommandBehavior.SingleRow)
            S1Command.Dispose()
        Else
            Dim S1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.S = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim S1DataReader As OleDbDataReader = S1Command.ExecuteReader(CommandBehavior.SingleRow)
            S1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim S2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.N = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim S2DataReader As OleDbDataReader = S2Command.ExecuteReader(CommandBehavior.SingleRow)
            S2Command.Dispose()
        Else
            Dim S2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.N = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim S2DataReader As OleDbDataReader = S2Command.ExecuteReader(CommandBehavior.SingleRow)
            S2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        SCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_SE_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SE.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO SURESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_SE.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_SE.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_SE.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_SE.Text
    End Sub

    Private Sub cbo_SE_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SE.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo SURESTE de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)

        NombreLocElegido = cbo_SE.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim SECommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim SEDataReader As OleDb.OleDbDataReader = SECommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim SELocElegida As String = ""
        While SEDataReader.Read
            SELocElegida = SEDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = SELocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim SE1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SE = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim SE1DataReader As OleDbDataReader = SE1Command.ExecuteReader(CommandBehavior.SingleRow)
            SE1Command.Dispose()
        Else
            Dim SE1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.SE = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim SE1DataReader As OleDbDataReader = SE1Command.ExecuteReader(CommandBehavior.SingleRow)
            SE1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim SE2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NW = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim SE2DataReader As OleDbDataReader = SE2Command.ExecuteReader(CommandBehavior.SingleRow)
            SE2Command.Dispose()
        Else
            Dim SE2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NW = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim SE2DataReader As OleDbDataReader = SE2Command.ExecuteReader(CommandBehavior.SingleRow)
            SE2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        SECommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_SALIR_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SALIR.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO BAJAR con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_SALIR.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_SALIR.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_SALIR.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_SALIR.Text
    End Sub

    Private Sub cbo_SALIR_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SALIR.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo SALIR de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String

        NombreLocElegido = cbo_SALIR.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim SALIRCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim SALIRDataReader As OleDb.OleDbDataReader = SALIRCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim SALIRLocElegida As String = ""
        While SALIRDataReader.Read
            SALIRLocElegida = SALIRDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = SALIRLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim SALIR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.salir = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim SALIR1DataReader As OleDbDataReader = SALIR1Command.ExecuteReader(CommandBehavior.SingleRow)
            SALIR1Command.Dispose()
        Else
            Dim SALIR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.salir = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim SALIR1DataReader As OleDbDataReader = SALIR1Command.ExecuteReader(CommandBehavior.SingleRow)
            SALIR1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim SALIR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.entrar= null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim SALIR2DataReader As OleDbDataReader = SALIR2Command.ExecuteReader(CommandBehavior.SingleRow)
            SALIR2Command.Dispose()
        Else
            Dim SALIR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.entrar = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim SALIR2DataReader As OleDbDataReader = SALIR2Command.ExecuteReader(CommandBehavior.SingleRow)
            SALIR2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        SALIRCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_SUBIR_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_SUBIR.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo SUBIR de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String
        'Ojo. NW puede ser cbo.TEXT sino SELECTEDITEM. (Obvio)

        NombreLocElegido = cbo_SUBIR.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim SUBIRCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim SUBIRDataReader As OleDb.OleDbDataReader = SUBIRCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim SUBIRLocElegida As String = ""
        While SUBIRDataReader.Read
            SUBIRLocElegida = SUBIRDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = SUBIRLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim SUBIR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.subir = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim SUBIR1DataReader As OleDbDataReader = SUBIR1Command.ExecuteReader(CommandBehavior.SingleRow)
            SUBIR1Command.Dispose()
        Else
            Dim SUBIR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.subir = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim SUBIR1DataReader As OleDbDataReader = SUBIR1Command.ExecuteReader(CommandBehavior.SingleRow)
            SUBIR1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim SUBIR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.bajar = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim SUBIR2DataReader As OleDbDataReader = SUBIR2Command.ExecuteReader(CommandBehavior.SingleRow)
            SUBIR2Command.Dispose()
        Else
            Dim SUBIR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.bajar = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim SUBIR2DataReader As OleDbDataReader = SUBIR2Command.ExecuteReader(CommandBehavior.SingleRow)
            SUBIR2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        SUBIRCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_BAJAR_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_BAJAR.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO BAJAR con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim comboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_BAJAR.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_BAJAR.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            comboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_BAJAR.Items.Add(comboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_BAJAR.Text
    End Sub

    Private Sub cbo_BAJAR_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_BAJAR.SelectionChangeCommitted
        '==============================================================================================
        'COMENTARIOS. Este procedimiento es el encargado de rellenar el campo BAJAR de la BASE DE DATOS con la localidad
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se declara la variable que recoge el ITEM seleccionado
        Dim NombreLocElegido As String

        NombreLocElegido = cbo_BAJAR.SelectedItem.ToString
        'Se crea un bojeto Command que carga la LOCALIDAD elegida
        '**********************************************
        Dim BAJARCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE NOMBRELOCALIDAD = '" & NombreLocElegido & "'", ODbConn)
        Dim BAJARDataReader As OleDb.OleDbDataReader = BAJARCommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Se lee el DataReader y se carga en la Variable NOLocElegida el valor de la localidad
        '**********************************************
        Dim BAJARLocElegida As String = ""
        While BAJARDataReader.Read
            BAJARLocElegida = BAJARDataReader.GetValue(0).ToString
        End While

        'Se declaran las variables localidad y VariableID
        ' La primera tiene el núm de localidad que se va a cambiar
        ' La segunda la localidad donde se va a cambiar.
        '**********************************************
        Dim Localidad As String = BAJARLocElegida
        Dim VariableID As Integer
        VariableID = CType(txt_ID.Text, Integer)

        'Se ejecuta una consulta de actualización donde se asigna la Localidad a VariableID
        ' Si la localidad elegida es "" entonces se le asigna un valor nulo.
        If Localidad = "" Then
            Dim BAJAR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.bajar = null" & " WHERE ID = " & VariableID, ODbConn)
            Dim BAJAR1DataReader As OleDbDataReader = BAJAR1Command.ExecuteReader(CommandBehavior.SingleRow)
            BAJAR1Command.Dispose()
        Else
            Dim BAJAR1Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.bajar = " & Localidad & " WHERE ID = " & VariableID, ODbConn)
            Dim BAJAR1DataReader As OleDbDataReader = BAJAR1Command.ExecuteReader(CommandBehavior.SingleRow)
            BAJAR1Command.Dispose()
        End If

        'Se crea la correspondiente entrada en la localidad relacionada.
        'Si la localidad es nula, se borra la entrada.

        If Localidad = "" Then
            Dim BAJAR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.subir = null" & " WHERE NombreLocalidad = " & "'" & ValorAnteriorDelCombo & "'", ODbConn)
            Dim BAJAR2DataReader As OleDbDataReader = BAJAR2Command.ExecuteReader(CommandBehavior.SingleRow)
            BAJAR2Command.Dispose()
        Else
            Dim BAJAR2Command As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.subir = " & VariableID & " WHERE ID = " & Localidad, ODbConn)
            Dim BAJAR2DataReader As OleDbDataReader = BAJAR2Command.ExecuteReader(CommandBehavior.SingleRow)
            BAJAR2Command.Dispose()
        End If

        'Se cierra la conexión para liberar memoria
        BAJARCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_NW_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_NW.DropDown

        '==============================================================================================
        'COMENTARIOS. Procedimiento para rellenar el COMBO NOROESTE con las localidades
        '==============================================================================================
        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim ComboCommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        ' Se crea un datareader para extraer todos los registros.
        Dim ComboDataReader As OleDb.OleDbDataReader = ComboCommand.ExecuteReader(CommandBehavior.CloseConnection)
        ' Se define la cadena que contará el número de localidades
        Dim strSQL = "SELECT COUNT (*) FROM LOCALIDADES"
        ' Se crea un comando en el que se seleccionan todos los registros de la conexión
        Dim cmd = New OleDb.OleDbCommand(strSQL, ODbConn)
        ' Se declaran la variable que contiene el NÚMERO DE REGISTROS de LOCALIDADES
        Dim n_reg As Integer = CInt(cmd.ExecuteScalar())
        ' Se vacía el combo para que no salgan las localidades anteriores
        Me.cbo_NW.Items.Clear()
        ' Añade el primer item vacío
        Me.cbo_NW.Items.Add("")
        ' Comienza el contador
        For cuenta = 0 To n_reg
            On Error Resume Next
            ComboDataReader.Read()
            'Se van añadiendo los datos del DataReader obtenidos de la 1ª columna de la tabla
            Me.cbo_NW.Items.Add(ComboDataReader.GetValue(1).ToString)
        Next cuenta
        ComboCommand.Dispose()
        cmd.Dispose()
        ODbConn.Close()
        ValorAnteriorDelCombo = cbo_NW.Text
    End Sub


    Private Sub chk_OSCURA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_OSCURA.CheckedChanged
        If chk_OSCURA.Checked = True Then
            chk_PUERTA.Visible = False
        End If
        If chk_OSCURA.Checked = False Then
            chk_PUERTA.Visible = True
        End If
    End Sub

    Private Sub chk_PUERTA_NO_APERTURABLE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_PUERTA_NO_APERTURABLE.CheckedChanged
        If chk_PUERTA_NO_APERTURABLE.Checked = True Then
            chk_PUERTA_ABIERTA.Visible = False
            chk_PUERTA_ABIERTA.Checked = False
            chk_PUERTA_CON_CERROJO.Visible = False
            chk_PUERTA_CON_CERROJO.Checked = False
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = False
            chk_PUERTA_PUESTO_EL_CERROJO.Checked = False
        End If
        If chk_PUERTA_NO_APERTURABLE.Checked = False Then
            chk_PUERTA_ABIERTA.Visible = True
            chk_PUERTA_CON_CERROJO.Visible = True
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = True
        End If
    End Sub

    Private Sub chk_PUERTA_ABIERTA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_PUERTA_ABIERTA.CheckedChanged
        If chk_PUERTA_ABIERTA.Checked = True Then
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = False
            chk_PUERTA_PUESTO_EL_CERROJO.Checked = False
        End If
        If chk_PUERTA_ABIERTA.Checked = False Then
            chk_PUERTA_PUESTO_EL_CERROJO.Visible = True
        End If
    End Sub

    Private Sub chk_PUERTA_PUESTO_EL_CERROJO_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_PUERTA_PUESTO_EL_CERROJO.CheckedChanged
        If chk_PUERTA_PUESTO_EL_CERROJO.Checked = True Then
            chk_PUERTA_ABIERTA.Visible = False
            chk_PUERTA_ABIERTA.Checked = False
        End If
        If chk_PUERTA_PUESTO_EL_CERROJO.Checked = False Then
            chk_PUERTA_ABIERTA.Visible = True
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Banner_text.CheckedChanged
        If chk_Banner_text.Checked = True Then
            rtxt_Banner_Text.Visible = True
        ElseIf chk_Banner_text.Checked = False Then
            rtxt_Banner_Text.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL CHECK DE BANNER TEXT. EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Banner_text.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK DE PREVENCIÓN DE UNDO
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.chk_bannertext = " & valordelcheck, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub rtxt_Banner_Text_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtxt_Banner_Text.LostFocus
        rtxt_Banner_Text.Text = CombrobarPuntoFinal(rtxt_Banner_Text.Text)
        If rtxt_Banner_Text.Text = "." Then
            rtxt_Banner_Text.Text = ""
        End If

        rtxt_Banner_Text.Text = Replace(rtxt_Banner_Text.Text, """", "")
        rtxt_Banner_Text.Text = Replace(rtxt_Banner_Text.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el BANNER TEXT EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba la DESCRIPCIÓN DE LA HISTORIA
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.txt_bannertext = " & "'" & rtxt_Banner_Text.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Left_1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_1.LostFocus
        cbo_Status_Line_Left_1.Text = Replace(cbo_Status_Line_Left_1.Text, """", "")
        cbo_Status_Line_Left_1.Text = Replace(cbo_Status_Line_Left_1.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE LEFT 1 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineLeft1 = " & "'" & cbo_Status_Line_Left_1.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Left_1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_1.SelectedIndexChanged

    End Sub

    Private Sub cbo_Status_Line_Left_1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_1.TextChanged
        If cbo_Status_Line_Left_1.Text <> "" Then
            cbo_Status_Line_Left_2.Visible = True
        Else
            cbo_Status_Line_Left_2.Visible = False
            cbo_Status_Line_Left_2.Text = ""
            cbo_Status_Line_Left_2.Text = ""
            cbo_Status_Line_Left_3.Text = ""
        End If
    End Sub

    Private Sub cbo_Status_Line_Left_2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_2.LostFocus

        cbo_Status_Line_Left_2.Text = Replace(cbo_Status_Line_Left_2.Text, """", "")
        cbo_Status_Line_Left_2.Text = Replace(cbo_Status_Line_Left_2.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE LEFT 2 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineLeft2 = " & "'" & cbo_Status_Line_Left_2.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Left_2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_2.SelectedIndexChanged
        If cbo_Status_Line_Left_2.Text <> "" Then
            cbo_Status_Line_Left_3.Visible = True
        Else
            cbo_Status_Line_Left_3.Visible = False
            cbo_Status_Line_Left_3.Text = ""
        End If
    End Sub

    Private Sub cbo_Status_Line_Right_1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Right_1.LostFocus

        cbo_Status_Line_Right_1.Text = Replace(cbo_Status_Line_Right_1.Text, """", "")
        cbo_Status_Line_Right_1.Text = Replace(cbo_Status_Line_Right_1.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE Right 1 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineRight1 = " & "'" & cbo_Status_Line_Right_1.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub cbo_Status_Line_Right_1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Right_1.TextChanged
        If cbo_Status_Line_Right_1.Text <> "" Then
            cbo_Status_Line_Right_2.Visible = True
        Else
            cbo_Status_Line_Right_2.Visible = False
            cbo_Status_Line_Right_2.Text = ""
            cbo_Status_Line_Right_3.Text = ""
        End If
    End Sub

    Private Sub cbo_Status_Line_Right_3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Right_3.LostFocus

        cbo_Status_Line_Right_3.Text = Replace(cbo_Status_Line_Right_3.Text, """", "")
        cbo_Status_Line_Right_3.Text = Replace(cbo_Status_Line_Right_3.Text, "'", "")

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE Right 3 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineRight3 = " & "'" & cbo_Status_Line_Right_3.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Right_2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Right_2.LostFocus

        cbo_Status_Line_Right_2.Text = Replace(cbo_Status_Line_Right_2.Text, """", "")
        cbo_Status_Line_Right_2.Text = Replace(cbo_Status_Line_Right_2.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE Right 2 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineRight2 = " & "'" & cbo_Status_Line_Right_2.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Right_2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Right_2.TextChanged
        If cbo_Status_Line_Right_2.Text <> "" Then
            cbo_Status_Line_Right_3.Visible = True
        Else
            cbo_Status_Line_Right_3.Visible = False
            cbo_Status_Line_Right_3.Text = ""
        End If
    End Sub

    Private Sub cbo_Genero_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Genero.LostFocus
        cbo_Genero.Text = Replace(cbo_Genero.Text, """", "")
        cbo_Genero.Text = Replace(cbo_Genero.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el GÉNERO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.Genero = " & "'" & cbo_Genero.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_Status_Line_Left_3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Status_Line_Left_3.LostFocus
        cbo_Status_Line_Left_3.Text = Replace(cbo_Status_Line_Left_3.Text, """", "")
        cbo_Status_Line_Left_3.Text = Replace(cbo_Status_Line_Left_3.Text, "'", "")


        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar STATUS LINE LEFT 3 EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el género.
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.StatusLineLeft3 = " & "'" & cbo_Status_Line_Left_3.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub chk_PUERTA_CON_CERROJO_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_PUERTA_CON_CERROJO.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar PUERTA CON CERROJO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LocalidadElegida As String = txt_LOCALIDAD_NOMBRE.Text
        Dim valordelcheck = chk_PUERTA_CON_CERROJO.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.con_cerrojo = " & valordelcheck & " WHERE NombreLocalidad = " & "'" & LocalidadElegida & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub lstbox_OBJETOS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstbox_OBJETOS.SelectedIndexChanged
        CargarLaBaseDeDatosDesdeListboxObjetos()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        CrearNuevoObjeto()
    End Sub

    Private Sub CrearNuevoObjetoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrearNuevoObjetoToolStripMenuItem.Click
        CrearNuevoObjeto()
    End Sub

    Private Sub txt_Nombre_Impreso_Objeto_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Nombre_Impreso_Objeto.LostFocus
        txt_Nombre_Impreso_Objeto.Text = Replace(txt_Nombre_Impreso_Objeto.Text, """", "")
        txt_Nombre_Impreso_Objeto.Text = Replace(txt_Nombre_Impreso_Objeto.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE IMPRESO DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.nombreimpreso = " & "'" & txt_Nombre_Impreso_Objeto.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub txt_Objeto_Apariencia_Inicial_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Apariencia_Inicial.LostFocus
        txt_Objeto_Apariencia_Inicial.Text = CombrobarPuntoFinal(txt_Objeto_Apariencia_Inicial.Text)
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la APARIENCIA INICIAL DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.aparienciainicial = " & "'" & txt_Objeto_Apariencia_Inicial.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub txt_Objeto_Descripción_Inicial_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Descripción_Inicial.LostFocus

        txt_Objeto_Descripción_Inicial.Text = Replace(txt_Objeto_Descripción_Inicial.Text, """", "")
        txt_Objeto_Descripción_Inicial.Text = Replace(txt_Objeto_Descripción_Inicial.Text, "'", "")
        txt_Objeto_Descripción_Inicial.Text = CombrobarPuntoFinal(txt_Objeto_Descripción_Inicial.Text)
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la DESCRIPCIÓN INICIAL DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.descripcioninicial = " & "'" & txt_Objeto_Descripción_Inicial.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub txt_Objeto_Apariencia_Una_Vez_Examinado_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Apariencia_Una_Vez_Examinado.LostFocus

        txt_Objeto_Apariencia_Una_Vez_Examinado.Text = Replace(txt_Objeto_Apariencia_Una_Vez_Examinado.Text, """", "")
        txt_Objeto_Apariencia_Una_Vez_Examinado.Text = Replace(txt_Objeto_Apariencia_Una_Vez_Examinado.Text, "'", "")
        txt_Objeto_Apariencia_Una_Vez_Examinado.Text = CombrobarPuntoFinal(txt_Objeto_Apariencia_Una_Vez_Examinado.Text) '==============================================================================================


        'COMENTARIOS. Procedimiento encargado de grabar la APARIENCIA UNA VEZ EXAMINADO DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.descripcionunavezexaminado = " & "'" & txt_Objeto_Apariencia_Una_Vez_Examinado.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub chk_Objeto_Femenino_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Femenino.CheckedChanged
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar FEMENINO DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Femenino.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.femenino = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Llevada_Al_Inicio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Llevada_Al_Inicio.CheckedChanged
        If chk_Objeto_Llevada_Al_Inicio.Checked = True Then
            pic_LLEVADO_AL_INICIO.Visible = True
        Else
            pic_LLEVADO_AL_INICIO.Visible = False
        End If

        If chk_Objeto_Llevada_Al_Inicio.Checked = True Then
            cbo_LOCALIZACION_OBJETO.Text = ""
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LLEVADO AL INICIO DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Llevada_Al_Inicio.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.llevadoalinicio = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Contenedor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Contenedor.CheckedChanged

        'Para que se vean los iconos.
        If chk_Objeto_Contenedor.Checked = True Then
            pic_CONTENEDOR.Visible = True
        Else
            pic_CONTENEDOR.Visible = False
        End If

        'Incompatibilidades
        If chk_Objeto_Contenedor.Checked = True Then
            chk_Objeto_Interruptor_ON.Enabled = False
            chk_Objeto_Interruptor_ON.Checked = False
            chk_Objeto_Interruptor_OFF.Enabled = False
            chk_Objeto_Interruptor_OFF.Checked = False
            chk_Objeto_Ubicuo.Enabled = False
            chk_Objeto_Ubicuo.Checked = False
            chk_Objeto_En_Todas_Partes.Enabled = False
            chk_Objeto_En_Todas_Partes.Checked = False
            chk_Objeto_Entrable.Enabled = True
            chk_Objeto_Transparente.Enabled = True
            chk_Objeto_Cerrado.Enabled = True
            chk_Objeto_Aperturable.Enabled = True
            chk_Objeto_Cerrado_Con_llave.Enabled = True
        Else
            chk_Objeto_Interruptor_ON.Enabled = True
            chk_Objeto_Interruptor_OFF.Enabled = True
            chk_Objeto_Ubicuo.Enabled = True
            chk_Objeto_En_Todas_Partes.Enabled = True
            chk_Objeto_Entrable.Enabled = False
            chk_Objeto_Entrable.Checked = False
            chk_Objeto_Transparente.Enabled = False
            chk_Objeto_Transparente.Checked = False
            chk_Objeto_Cerrado.Enabled = False
            chk_Objeto_Cerrado.Checked = False
            chk_Objeto_Aperturable.Enabled = False
            chk_Objeto_Aperturable.Checked = False
            chk_Objeto_Cerrado_Con_llave.Enabled = False
            chk_Objeto_Cerrado_Con_llave.Checked = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO CONTENEDOR EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Contenedor.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.contenedor = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Transparente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Transparente.CheckedChanged

        If chk_Objeto_Transparente.Checked = True Then
            pic_TRANSPARENTE.Visible = True
        Else
            pic_TRANSPARENTE.Visible = False
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO TRANSPARENTE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Transparente.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.transparente = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Aperturable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Aperturable.CheckedChanged

        If chk_Objeto_Aperturable.Checked = True Then
            pic_APERTURABLE.Visible = True
        Else
            pic_APERTURABLE.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO APERTURABLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Aperturable.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.aperturable = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Cerrado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Cerrado.CheckedChanged
        If chk_Objeto_Cerrado.Checked = True Then
            pic_CERRADO.Visible = True
        Else
            pic_CERRADO.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO CERRADO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Cerrado.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.cerrado = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Cerrado_Con_llave_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Cerrado_Con_llave.CheckedChanged
        If chk_Objeto_Cerrado_Con_llave.Checked = True Then
            pic_CERRADO_CON_LLAVE.Visible = True
        Else
            pic_CERRADO_CON_LLAVE.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO CERRADO CON LLAVE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Cerrado_Con_llave.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.cerradoconllave = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Comestible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Comestible.CheckedChanged

        If chk_Objeto_Comestible.Checked = True Then
            pic_COMESTIBLE.Visible = True
        Else
            pic_COMESTIBLE.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO COMESTIBLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Comestible.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.comestible = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Entrable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Entrable.CheckedChanged

        If chk_Objeto_Entrable.Checked = True Then
            pic_ENTRABLE.Visible = True
        Else
            pic_ENTRABLE.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO ENTRABLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Entrable.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.entrable = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Llevable_Puesto_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Llevable_Puesto.CheckedChanged

        If chk_Objeto_Llevable_Puesto.Checked = True Then
            pic_LLEVABLE_PUESTO.Visible = True
        Else
            pic_LLEVABLE_PUESTO.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO LLEVABLE PUESTO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Llevable_Puesto.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.llevablepuesto = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Escenario_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Escenario.CheckedChanged

        If chk_Objeto_Escenario.Checked = True Then
            pic_ESCENARIO.Visible = True
        Else
            pic_ESCENARIO.Visible = False
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO ESCENARIO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Escenario.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.escenario = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Empujable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Empujable.CheckedChanged

        If chk_Objeto_Empujable.Checked = True Then
            pic_EMPUJABLE.Visible = True
        Else
            pic_EMPUJABLE.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO EMPUJABLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Empujable.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.empujable = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Fijo_En_El_Sitio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Fijo_En_El_Sitio.CheckedChanged

        If chk_Objeto_Fijo_En_El_Sitio.Checked = True Then
            pic_FIJO_EN_UN_SITIO.Visible = True
        Else
            pic_FIJO_EN_UN_SITIO.Visible = False
        End If

        'Incompatibilidades
        If chk_Objeto_Fijo_En_El_Sitio.Checked = True Then
            chk_Objeto_Portable.Enabled = False
            chk_Objeto_Portable.Checked = False
        Else
            chk_Objeto_Portable.Enabled = True
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO FIJO EN UN SITIO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Fijo_En_El_Sitio.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.fijoenunsitio = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Portable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Portable.CheckedChanged

        If chk_Objeto_Portable.Checked = True Then
            pic_PORTABLE.Visible = True
        Else
            pic_PORTABLE.Visible = False
        End If


        'Incompatibilidades
        If chk_Objeto_Portable.Checked = True Then
            chk_Objeto_Fijo_En_El_Sitio.Enabled = False
            chk_Objeto_Fijo_En_El_Sitio.Checked = False
        Else
            chk_Objeto_Fijo_En_El_Sitio.Enabled = True
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO PORTABLE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Portable.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.portable = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Cogido_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Cogido.CheckedChanged

        If chk_Objeto_Cogido.Checked = True Then
            pic_COGIDO.Visible = True
        Else
            pic_COGIDO.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO COGIDO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Cogido.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.cogido = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Luminoso_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Luminoso.CheckedChanged
        If chk_Objeto_Luminoso.Checked = True Then
            pic_LUMINOSO.Visible = True
        Else
            pic_LUMINOSO.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO LUMINOSO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Luminoso.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.luminoso = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Interruptor_ON_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Interruptor_ON.CheckedChanged
        If chk_Objeto_Interruptor_ON.Checked = True Then
            pic_INTERRUPTORON.Visible = True
        Else
            pic_INTERRUPTORON.Visible = False
        End If


        'Incompatibilidades
        If chk_Objeto_Interruptor_ON.Checked = True Then
            chk_Objeto_Interruptor_OFF.Enabled = False
            chk_Objeto_Interruptor_OFF.Checked = False
            chk_Objeto_Contenedor.Enabled = False
            chk_Objeto_Contenedor.Checked = False
            chk_Objeto_Ubicuo.Enabled = False
            chk_Objeto_Ubicuo.Checked = False
            chk_Objeto_En_Todas_Partes.Enabled = False
            chk_Objeto_En_Todas_Partes.Checked = False
            chk_Objeto_Entrable.Enabled = False
            chk_Objeto_Entrable.Checked = False
            chk_Objeto_Transparente.Enabled = False
            chk_Objeto_Transparente.Checked = False
            chk_Objeto_Cerrado.Enabled = False
            chk_Objeto_Cerrado.Checked = False
            chk_Objeto_Aperturable.Enabled = False
            chk_Objeto_Aperturable.Checked = False
            chk_Objeto_Cerrado_Con_llave.Enabled = False
            chk_Objeto_Cerrado_Con_llave.Checked = False
        Else
            chk_Objeto_Interruptor_OFF.Enabled = True
            chk_Objeto_Ubicuo.Enabled = True
            chk_Objeto_En_Todas_Partes.Enabled = True
            chk_Objeto_Contenedor.Enabled = True
            chk_Objeto_Entrable.Enabled = True
            chk_Objeto_Transparente.Enabled = True
            chk_Objeto_Cerrado.Enabled = True
            chk_Objeto_Aperturable.Enabled = True
            chk_Objeto_Cerrado_Con_llave.Enabled = True
        End If
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO INTERRUPTOR ON EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Interruptor_ON.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.interruptoron = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Interruptor_OFF_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Interruptor_OFF.CheckedChanged

        If chk_Objeto_Interruptor_OFF.Checked = True Then
            pic_INTERRUPTOROFF.Visible = True
        Else
            pic_INTERRUPTOROFF.Visible = False
        End If

        'Incompatibilidades
        If chk_Objeto_Interruptor_OFF.Checked = True Then
            chk_Objeto_Interruptor_ON.Enabled = False
            chk_Objeto_Interruptor_ON.Checked = False
            chk_Objeto_Contenedor.Enabled = False
            chk_Objeto_Contenedor.Checked = False
            chk_Objeto_Ubicuo.Enabled = False
            chk_Objeto_Ubicuo.Checked = False
            chk_Objeto_En_Todas_Partes.Enabled = False
            chk_Objeto_En_Todas_Partes.Checked = False
            chk_Objeto_Entrable.Enabled = False
            chk_Objeto_Entrable.Checked = False
            chk_Objeto_Transparente.Enabled = False
            chk_Objeto_Transparente.Checked = False
            chk_Objeto_Cerrado.Enabled = False
            chk_Objeto_Cerrado.Checked = False
            chk_Objeto_Aperturable.Enabled = False
            chk_Objeto_Aperturable.Checked = False
            chk_Objeto_Cerrado_Con_llave.Enabled = False
            chk_Objeto_Cerrado_Con_llave.Checked = False
        Else
            chk_Objeto_Interruptor_ON.Enabled = True
            chk_Objeto_Ubicuo.Enabled = True
            chk_Objeto_En_Todas_Partes.Enabled = True
            chk_Objeto_Contenedor.Enabled = True
            chk_Objeto_Entrable.Enabled = True
            chk_Objeto_Transparente.Enabled = True
            chk_Objeto_Cerrado.Enabled = True
            chk_Objeto_Aperturable.Enabled = True
            chk_Objeto_Cerrado_Con_llave.Enabled = True
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO INTERRUPTOR OFF EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Interruptor_OFF.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.interruptoroff = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_Ubicuo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_Ubicuo.CheckedChanged
        If chk_Objeto_Ubicuo.Checked = True Then
            pic_UBICUO.Visible = True
        Else
            pic_UBICUO.Visible = False
        End If

        'Incompatibilidades
        If chk_Objeto_Ubicuo.Checked = True Then
            chk_Objeto_Empujable.Enabled = False
            chk_Objeto_Empujable.Checked = False
        Else
            chk_Objeto_Empujable.Enabled = True
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO UBICUO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_Ubicuo.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.ubicuo = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub chk_Objeto_En_Todas_Partes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Objeto_En_Todas_Partes.CheckedChanged

        If chk_Objeto_En_Todas_Partes.Checked = True Then
            pic_EN_TODAS_PARTES.Visible = True
        Else
            pic_EN_TODAS_PARTES.Visible = False
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar  OBJETO EN TODAS PARTES EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim valordelcheck = chk_Objeto_En_Todas_Partes.Checked

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba EL CHECK de MARCADOR DE PUNTOS
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.entodaspartes = " & valordelcheck & " WHERE Nombre = " & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Capacidad_De_Carga_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Capacidad_De_Carga.LostFocus
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL NÚMERO DE CAPACIDAD DE CARGA DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.numerocapacidaddecarga = " & "'" & txt_Objeto_Capacidad_De_Carga.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub


    Private Sub cbo_PUERTA_CON_LLAVE_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_PUERTA_CON_LLAVE.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de CARGAR EL COMBO PUERTA CON LLAVE
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LstLOCALIDADESCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES WHERE PUERTA = " & True, ODbConn)
        Dim LstLOCALIDADESDataReaderLstbox As OleDb.OleDbDataReader = LstLOCALIDADESCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        cbo_PUERTA_CON_LLAVE.Items.Clear()
        While LstLOCALIDADESDataReaderLstbox.Read
            cbo_PUERTA_CON_LLAVE.Items.Add(LstLOCALIDADESDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While

        Dim APERTURABLECommand As New OleDb.OleDbCommand("SELECT * FROM OBJETOS WHERE contenedor = " & True, ODbConn)
        Dim APERTURABLEDataReader As OleDb.OleDbDataReader = APERTURABLECommand.ExecuteReader(CommandBehavior.CloseConnection)
        While APERTURABLEDataReader.Read
            cbo_PUERTA_CON_LLAVE.Items.Add(APERTURABLEDataReader.Item("Nombre").ToString)
        End While

        LstLOCALIDADESCommandLstbox.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_PUERTA_CON_LLAVE_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_PUERTA_CON_LLAVE.LostFocus
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LA PUERTAS QUE SE ABRE CON EL OBJETO LLAVE EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.puerta = " & "'" & cbo_PUERTA_CON_LLAVE.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub txt_Objeto_Instead_Taking_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Taking.LostFocus

        txt_Objeto_Instead_Taking.Text = Replace(txt_Objeto_Instead_Taking.Text, """", "")
        txt_Objeto_Instead_Taking.Text = Replace(txt_Objeto_Instead_Taking.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE COGER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Coger = " & "'" & txt_Objeto_Instead_Taking.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub txt_Objeto_Instead_Droping_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Droping.LostFocus
        txt_Objeto_Instead_Droping.Text = Replace(txt_Objeto_Instead_Droping.Text, """", "")
        txt_Objeto_Instead_Droping.Text = Replace(txt_Objeto_Instead_Droping.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE DEJAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Dejar = " & "'" & txt_Objeto_Instead_Droping.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Eating_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Eating.LostFocus

        txt_Objeto_Instead_Eating.Text = Replace(txt_Objeto_Instead_Eating.Text, """", "")
        txt_Objeto_Instead_Eating.Text = Replace(txt_Objeto_Instead_Eating.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE COMER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Comer = " & "'" & txt_Objeto_Instead_Eating.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Drinking_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Drinking.LostFocus

        txt_Objeto_Instead_Drinking.Text = Replace(txt_Objeto_Instead_Drinking.Text, """", "")
        txt_Objeto_Instead_Drinking.Text = Replace(txt_Objeto_Instead_Drinking.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE BEBER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Beber = " & "'" & txt_Objeto_Instead_Drinking.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Looking_Under_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Looking_Under.LostFocus

        txt_Objeto_Instead_Looking_Under.Text = Replace(txt_Objeto_Instead_Looking_Under.Text, """", "")
        txt_Objeto_Instead_Looking_Under.Text = Replace(txt_Objeto_Instead_Looking_Under.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE MIRAR DEBAJO OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Mirar_Debajo = " & "'" & txt_Objeto_Instead_Looking_Under.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Searching_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Searching.LostFocus

        txt_Objeto_Instead_Searching.Text = Replace(txt_Objeto_Instead_Searching.Text, """", "")
        txt_Objeto_Instead_Searching.Text = Replace(txt_Objeto_Instead_Searching.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE BUSCAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Buscar = " & "'" & txt_Objeto_Instead_Searching.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Switching_On_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Switching_On.LostFocus

        txt_Objeto_Instead_Switching_On.Text = Replace(txt_Objeto_Instead_Switching_On.Text, """", "")
        txt_Objeto_Instead_Switching_On.Text = Replace(txt_Objeto_Instead_Switching_On.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE ENCENDER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Encender = " & "'" & txt_Objeto_Instead_Switching_On.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Switching_Off_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Switching_Off.LostFocus

        txt_Objeto_Instead_Switching_Off.Text = Replace(txt_Objeto_Instead_Switching_Off.Text, """", "")
        txt_Objeto_Instead_Switching_Off.Text = Replace(txt_Objeto_Instead_Switching_Off.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE APAGAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Apagar = " & "'" & txt_Objeto_Instead_Switching_Off.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Opening_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Opening.LostFocus

        txt_Objeto_Instead_Opening.Text = Replace(txt_Objeto_Instead_Opening.Text, """", "")
        txt_Objeto_Instead_Opening.Text = Replace(txt_Objeto_Instead_Opening.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE ABRIR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Abrir = " & "'" & txt_Objeto_Instead_Opening.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Closing_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Closing.LostFocus

        txt_Objeto_Instead_Closing.Text = Replace(txt_Objeto_Instead_Closing.Text, """", "")
        txt_Objeto_Instead_Closing.Text = Replace(txt_Objeto_Instead_Closing.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE CERRAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Cerrar = " & "'" & txt_Objeto_Instead_Closing.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Wearing_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Wearing.LostFocus

        txt_Objeto_Instead_Wearing.Text = Replace(txt_Objeto_Instead_Wearing.Text, """", "")
        txt_Objeto_Instead_Wearing.Text = Replace(txt_Objeto_Instead_Wearing.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE ENCENDER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Llevar_Puesto = " & "'" & txt_Objeto_Instead_Wearing.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Taking_Off_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Taking_Off.LostFocus

        txt_Objeto_Instead_Taking_Off.Text = Replace(txt_Objeto_Instead_Taking_Off.Text, """", "")
        txt_Objeto_Instead_Taking_Off.Text = Replace(txt_Objeto_Instead_Taking_Off.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE QUITARTE OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Quitarte = " & "'" & txt_Objeto_Instead_Taking_Off.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub txt_Objeto_Instead_Attacking_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Attacking.LostFocus

        txt_Objeto_Instead_Attacking.Text = Replace(txt_Objeto_Instead_Attacking.Text, """", "")
        txt_Objeto_Instead_Attacking.Text = Replace(txt_Objeto_Instead_Attacking.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE ROMPER OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Romper = " & "'" & txt_Objeto_Instead_Attacking.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Kissing_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Kissing.LostFocus

        txt_Objeto_Instead_Kissing.Text = Replace(txt_Objeto_Instead_Kissing.Text, """", "")
        txt_Objeto_Instead_Kissing.Text = Replace(txt_Objeto_Instead_Kissing.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE BESAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Besar = " & "'" & txt_Objeto_Instead_Kissing.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    
    Private Sub txt_Objeto_Instead_Touching_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Touching.LostFocus

        txt_Objeto_Instead_Touching.Text = Replace(txt_Objeto_Instead_Touching.Text, """", "")
        txt_Objeto_Instead_Touching.Text = Replace(txt_Objeto_Instead_Touching.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE TOCAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Tocar = " & "'" & txt_Objeto_Instead_Touching.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Waving_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Waving.LostFocus

        txt_Objeto_Instead_Waving.Text = Replace(txt_Objeto_Instead_Waving.Text, """", "")
        txt_Objeto_Instead_Waving.Text = Replace(txt_Objeto_Instead_Waving.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE AGITAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Agitar = " & "'" & txt_Objeto_Instead_Waving.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Pulling_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Pulling.LostFocus

        txt_Objeto_Instead_Pulling.Text = Replace(txt_Objeto_Instead_Pulling.Text, """", "")
        txt_Objeto_Instead_Pulling.Text = Replace(txt_Objeto_Instead_Pulling.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE TIRAR DE OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Tirar_de = " & "'" & txt_Objeto_Instead_Pulling.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Pushing_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Pushing.LostFocus

        txt_Objeto_Instead_Pushing.Text = Replace(txt_Objeto_Instead_Pushing.Text, """", "")
        txt_Objeto_Instead_Pushing.Text = Replace(txt_Objeto_Instead_Pushing.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE EMPUJAR DE OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Empujar = " & "'" & txt_Objeto_Instead_Pushing.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub txt_Objeto_Instead_Turning_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Turning.LostFocus

        txt_Objeto_Instead_Turning.Text = Replace(txt_Objeto_Instead_Turning.Text, """", "")
        txt_Objeto_Instead_Turning.Text = Replace(txt_Objeto_Instead_Turning.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE GIRAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Girar = " & "'" & txt_Objeto_Instead_Turning.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Squeezing_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Squeezing.LostFocus

        txt_Objeto_Instead_Squeezing.Text = Replace(txt_Objeto_Instead_Squeezing.Text, """", "")
        txt_Objeto_Instead_Squeezing.Text = Replace(txt_Objeto_Instead_Squeezing.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE RETORCER DE OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Retorcer = " & "'" & txt_Objeto_Instead_Squeezing.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Burning_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Burning.LostFocus

        txt_Objeto_Instead_Burning.Text = Replace(txt_Objeto_Instead_Burning.Text, """", "")
        txt_Objeto_Instead_Burning.Text = Replace(txt_Objeto_Instead_Burning.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE QUEMAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Quemar = " & "'" & txt_Objeto_Instead_Burning.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Smelling_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Smelling.LostFocus

        txt_Objeto_Instead_Smelling.Text = Replace(txt_Objeto_Instead_Smelling.Text, """", "")
        txt_Objeto_Instead_Smelling.Text = Replace(txt_Objeto_Instead_Smelling.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE OLER DE OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Oler = " & "'" & txt_Objeto_Instead_Smelling.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Tasting_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Tasting.LostFocus

        txt_Objeto_Instead_Tasting.Text = Replace(txt_Objeto_Instead_Tasting.Text, """", "")
        txt_Objeto_Instead_Tasting.Text = Replace(txt_Objeto_Instead_Tasting.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE SABOREAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Saborear = " & "'" & txt_Objeto_Instead_Tasting.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Buying_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Buying.LostFocus

        txt_Objeto_Instead_Buying.Text = Replace(txt_Objeto_Instead_Buying.Text, """", "")
        txt_Objeto_Instead_Buying.Text = Replace(txt_Objeto_Instead_Buying.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE COMPRAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Comprar = " & "'" & txt_Objeto_Instead_Buying.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_Objeto_Instead_Listening_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Objeto_Instead_Listening.LostFocus

        txt_Objeto_Instead_Listening.Text = Replace(txt_Objeto_Instead_Listening.Text, """", "")
        txt_Objeto_Instead_Listening.Text = Replace(txt_Objeto_Instead_Listening.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EN LUGAR DE ESCUCHAR OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.Objeto_Instead_Escuchar = " & "'" & txt_Objeto_Instead_Listening.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_LOCALIZACION_OBJETO_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_LOCALIZACION_OBJETO.DropDown

        ' Cargar el COMBOBOX de LOCALIZACION DE OBJETOS
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LOCALIZACION_OBJETOSCommandLstbox As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn) ' WHERE ID =" & varNombreLoc, ODbConn)
        Dim LOCALIZACIONOBJETOSDataReaderLstbox As OleDb.OleDbDataReader = LOCALIZACION_OBJETOSCommandLstbox.ExecuteReader(CommandBehavior.CloseConnection)

        cbo_LOCALIZACION_OBJETO.Items.Clear()
        cbo_LOCALIZACION_OBJETO.Items.Add("")
        cbo_LOCALIZACION_OBJETO.Items.Add("aquí")
        While LOCALIZACIONOBJETOSDataReaderLstbox.Read
            cbo_LOCALIZACION_OBJETO.Items.Add(LOCALIZACIONOBJETOSDataReaderLstbox.Item("NombreLocalidad").ToString)
        End While
    End Sub

    Private Sub cbo_LOCALIZACION_OBJETO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_LOCALIZACION_OBJETO.LostFocus

        cbo_LOCALIZACION_OBJETO.Text = Replace(cbo_LOCALIZACION_OBJETO.Text, """", "")
        cbo_LOCALIZACION_OBJETO.Text = Replace(cbo_LOCALIZACION_OBJETO.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de LA LOCALIZACIÓN DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE OBJETOS SET OBJETOS.localizacionobjeto = " & "'" & cbo_LOCALIZACION_OBJETO.Text & "'" & "WHERE OBJETOS.nombre=" & "'" & txt_Nombre_Objeto.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_LOCALIZACION_OBJETO_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_LOCALIZACION_OBJETO.TextChanged
        If cbo_LOCALIZACION_OBJETO.Text <> "" Then
            chk_Objeto_Llevada_Al_Inicio.Checked = False
        End If
    End Sub

    Private Sub rtxt_DESCRIPCIÓN_DEL_JUGADOR_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtxt_DESCRIPCIÓN_DEL_JUGADOR.LostFocus
        rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = CombrobarPuntoFinal(rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text)
        If rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = "." Then
            rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = ""
        End If
        rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = Replace(rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text, """", "")
        rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text = Replace(rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar LA DESCRIPCION DEL JUGADOR EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba la DESCRIPCIÓN DE LA HISTORIA
        Dim LACommand As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.descripcionjugador = " & "'" & rtxt_DESCRIPCIÓN_DEL_JUGADOR.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub ToolStripButtonNUEVO_PSI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonNUEVO_PSI.Click
        CrearNuevoPSI()
    End Sub

    Private Sub NuevoPSIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevoPSIToolStripMenuItem.Click
        CrearNuevoPSI()
    End Sub

    Private Sub lst_PSIS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_PSIS.SelectedIndexChanged
        CargarLaBaseDeDatosDesdeListboxPSIS()
    End Sub

    Private Sub rbt_Hombre_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbt_Hombre.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el TIPO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.tipoPSI = " & "'" & "Hombre" & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub rbt_Mujer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbt_Mujer.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el TIPO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.tipoPSI = " & "'" & "Mujer" & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub rbt_Animal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbt_Animal.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el TIPO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.tipoPSI = " & "'" & "Animal" & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_PSI_NOMBRE_IMPRESO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_PSI_NOMBRE_IMPRESO.LostFocus
        txt_PSI_NOMBRE_IMPRESO.Text = Replace(txt_PSI_NOMBRE_IMPRESO.Text, """", "")
        txt_PSI_NOMBRE_IMPRESO.Text = Replace(txt_PSI_NOMBRE_IMPRESO.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE IMPRESO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.nombreimpresoPSI = " & "'" & txt_PSI_NOMBRE_IMPRESO.Text & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_PSI_APARIENCIA_INICIAL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_PSI_APARIENCIA_INICIAL.LostFocus

        txt_PSI_APARIENCIA_INICIAL.Text = Replace(txt_PSI_APARIENCIA_INICIAL.Text, """", "")
        txt_PSI_APARIENCIA_INICIAL.Text = Replace(txt_PSI_APARIENCIA_INICIAL.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE IMPRESO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.aparienciainicialPSI = " & "'" & txt_PSI_APARIENCIA_INICIAL.Text & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_PSI_DESCRIPCION_INICIAL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_PSI_DESCRIPCION_INICIAL.LostFocus

        txt_PSI_DESCRIPCION_INICIAL.Text = Replace(txt_PSI_DESCRIPCION_INICIAL.Text, """", "")
        txt_PSI_DESCRIPCION_INICIAL.Text = Replace(txt_PSI_DESCRIPCION_INICIAL.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE IMPRESO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.descripcioninicialPSI = " & "'" & txt_PSI_DESCRIPCION_INICIAL.Text & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.LostFocus

        txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text = Replace(txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text, """", "")
        txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text = Replace(txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el DESCRIPCION UNA VEZ EXAMINADO DE PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.descripcionPSIunavezexaminado = " & "'" & txt_PSI_DESCRIPCION_UNA_VEZ_EXAMINADO.Text & "'" & "WHERE PSIS.nombrePSI= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_LOCALIZACION_PSI_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_LOCALIZACION_PSI.DropDown
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de CARGAR COMBO LOCALIZACION PSI
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim LOCALIDAD_PSICommand As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES", ODbConn)
        Dim LOCALIDAD_PSIDataReader As OleDb.OleDbDataReader = LOCALIDAD_PSICommand.ExecuteReader(CommandBehavior.CloseConnection)

        cbo_LOCALIZACION_PSI.Items.Clear()
        cbo_LOCALIZACION_PSI.Items.Add("")
        cbo_LOCALIZACION_PSI.Items.Add("aquí")
        While LOCALIDAD_PSIDataReader.Read
            cbo_LOCALIZACION_PSI.Items.Add(LOCALIDAD_PSIDataReader.Item("NombreLocalidad").ToString)
        End While

        Dim APERTURABLECommand As New OleDb.OleDbCommand("SELECT * FROM OBJETOS WHERE contenedor = " & True, ODbConn)
        Dim APERTURABLEDataReader As OleDb.OleDbDataReader = APERTURABLECommand.ExecuteReader(CommandBehavior.CloseConnection)
        While APERTURABLEDataReader.Read
            cbo_LOCALIZACION_PSI.Items.Add(APERTURABLEDataReader.Item("Nombre").ToString)
        End While

        'Libera memoria
        LOCALIDAD_PSICommand.Dispose()
        APERTURABLECommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub cbo_LOCALIZACION_PSI_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_LOCALIZACION_PSI.LostFocus

        cbo_LOCALIZACION_PSI.Text = Replace(cbo_LOCALIZACION_PSI.Text, """", "")
        cbo_LOCALIZACION_PSI.Text = Replace(cbo_LOCALIZACION_PSI.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de LA LOCALIZACIÓN DEL PSI EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        'Se ejecuta una consulta de actualización que graba el Nombre del Juego
        Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS SET PSIS.localizacionPSI = " & "'" & cbo_LOCALIZACION_PSI.Text & "'" & "WHERE PSIS.nombrepsi=" & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria 
        LACommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub DarFormatoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DarFormatoToolStripMenuItem.Click
        DarFormatoTexto()
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        DarFormatoTexto()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        DarFormatoTexto()
    End Sub

    Private Sub DarFormatoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DarFormatoToolStripMenuItem1.Click
        DarFormatoTexto()
    End Sub

    Private Sub datagrid_PRERESPUESTAS_ALEATORIAS_PSIs_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.CellLeave
        'MsgBox("Dejas la celda")

        ''==============================================================================================
        ''COMENTARIOS. Procedimiento encargado de grabar la PRE-RESPUESTA DEL PSI EN LA B.D.
        ''==============================================================================================

        ''Se establece la conexión con la base de datos.
        'Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        'Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        'ODbConn.Open()

        ''Se crea un objeto Command 
        ''Se ejecuta una consulta de actualización que graba el Nombre del Juego
        'Dim LACommand As New OleDb.OleDbCommand("INSERT INTO PSI_PRE_RESPUESTA_ALEATORIA (PSI, pre_respuesta) VALUES (" & "'" & txt_Nombre_PSI.Text & "'," & "'" & datagrid_PRERESPUESTAS_ALEATORIAS_PSIs.Rows.Item(0).Cells(0).Value & "')", ODbConn)
        'Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        ''Libera memoria
        'LACommand.Dispose()
        'ODbConn.Close()

    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_AÑADIR_TOPICOS.Click

        AñadirTopicosYRespuestas.rtxt_TOPICO.Text = ""
        AñadirTopicosYRespuestas.lsb_SINONIMO_DEL_TOPICO.Items.Clear()
        AñadirTopicosYRespuestas.rtxt_PSI_AÑADIRTOPICOS_Y_RESPUESTAS_RESPUESTA.Text = ""
        TipoLlamadaAñadirTopicosYRespuestas = "AÑADIR"
        AñadirTopicosYRespuestas.ShowDialog()
    End Sub

    Private Sub lsb_PSIS_TOPICO_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb_PSIS_TOPICO.DoubleClick
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de CARGAR el SINONIMO DEL TOPICO
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim SinonimoCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_SINONIMOS_TOPICOS WHERE topico = " & "'" & lsb_PSIS_TOPICO.SelectedItem & "'" & " AND psi = " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim SinonimoDataReader As OleDb.OleDbDataReader = SinonimoCommand.ExecuteReader(CommandBehavior.CloseConnection)

        AñadirTopicosYRespuestas.rtxt_TOPICO.Text = lsb_PSIS_TOPICO.SelectedItem
        AñadirTopicosYRespuestas.rtxt_PSI_AÑADIRTOPICOS_Y_RESPUESTAS_RESPUESTA.Text = lsb_PSIS_RESPUESTA.SelectedItem
        AñadirTopicosYRespuestas.lsb_SINONIMO_DEL_TOPICO.Items.Clear()
        While SinonimoDataReader.Read
            AñadirTopicosYRespuestas.lsb_SINONIMO_DEL_TOPICO.Items.Add(SinonimoDataReader.Item("sinonimo"))
        End While
        'Libera memoria
        SinonimoCommand.Dispose()
        ODbConn.Close()
        TipoLlamadaAñadirTopicosYRespuestas = "MODIFICAR"
        AñadirTopicosYRespuestas.ShowDialog()

    End Sub

    Private Sub lsb_PSIS_TOPICO_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsb_PSIS_TOPICO.SelectedIndexChanged
        lsb_PSIS_RESPUESTA.SelectedIndex = lsb_PSIS_TOPICO.SelectedIndex

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de PONER NRO DE TOPICO EN LA ETIQUETA
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS_TOPICOS_TABULADOS WHERE topico = " & "'" & lsb_PSIS_TOPICO.SelectedItem & "'" & " AND psi = " & "'" & txt_Nombre_PSI.Text & "'" & " AND Respuesta = " & "'" & lsb_PSIS_RESPUESTA.SelectedItem & "'", ODbConn)
        Dim DataReader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        While DataReader.Read
            lbl_NRO_DE_TOPICO_EN_BD.Text = DataReader.Item("ID")
        End While
        Command.Dispose()
        ODbConn.Dispose()
    End Sub

    Private Sub lsb_PSIS_RESPUESTA_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb_PSIS_RESPUESTA.DoubleClick
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de CARGAR el SINONIMO DEL TOPICO
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim SinonimoCommand As New OleDb.OleDbCommand("SELECT * FROM PSIS_SINONIMOS_TOPICOS WHERE topico = " & "'" & lsb_PSIS_TOPICO.SelectedItem & "'" & " AND psi = " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim SinonimoDataReader As OleDb.OleDbDataReader = SinonimoCommand.ExecuteReader(CommandBehavior.CloseConnection)

        AñadirTopicosYRespuestas.rtxt_TOPICO.Text = lsb_PSIS_TOPICO.SelectedItem
        AñadirTopicosYRespuestas.rtxt_PSI_AÑADIRTOPICOS_Y_RESPUESTAS_RESPUESTA.Text = lsb_PSIS_RESPUESTA.SelectedItem
        AñadirTopicosYRespuestas.lsb_SINONIMO_DEL_TOPICO.Items.Clear()
        While SinonimoDataReader.Read
            AñadirTopicosYRespuestas.lsb_SINONIMO_DEL_TOPICO.Items.Add(SinonimoDataReader.Item("sinonimo"))
        End While
        TipoLlamadaAñadirTopicosYRespuestas = "MODIFICAR"
        'Libera memoria
        SinonimoCommand.Dispose()
        ODbConn.Dispose()

        AñadirTopicosYRespuestas.ShowDialog()
    End Sub

    Private Sub lsb_PSIS_RESPUESTA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsb_PSIS_RESPUESTA.SelectedIndexChanged
        lsb_PSIS_TOPICO.SelectedIndex = lsb_PSIS_RESPUESTA.SelectedIndex

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de PONER NRO DE TOPICO EN LA ETIQUETA
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS_TOPICOS_TABULADOS WHERE topico = " & "'" & lsb_PSIS_TOPICO.SelectedItem & "'" & " AND psi = " & "'" & txt_Nombre_PSI.Text & "'" & " AND Respuesta = " & "'" & lsb_PSIS_RESPUESTA.SelectedItem & "'", ODbConn)
        Dim DataReader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        While DataReader.Read
            lbl_NRO_DE_TOPICO_EN_BD.Text = DataReader.Item("ID")
        End While
        'Libera memoria
        Command.Dispose()
        ODbConn.Dispose()
    End Sub

    Private Sub btn_ELIMINAR_TOPICOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_TOPICOS.Click
        '==============================================================================================
        'COMENTARIOS. ELIMINAR UN TOPICO Y UNA RESPUESTA DEL PSI DE LA B.D.
        '==============================================================================================

        Dim TopicoSeleccionado As String
        Dim RespuestaSeleccionada As String
        TopicoSeleccionado = lsb_PSIS_TOPICO.SelectedItem
        RespuestaSeleccionada = lsb_PSIS_RESPUESTA.SelectedItem

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("DELETE FROM PSIS_TOPICOS_TABULADOS WHERE PSIS_TOPICOS_TABULADOS.topico = " & "'" & TopicoSeleccionado & "'" & " and " & "PSIS_TOPICOS_TABULADOS.respuesta= " & "'" & RespuestaSeleccionada & "'" & " and " & "PSIS_TOPICOS_TABULADOS.psi= " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim DataReader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        Command.Dispose()
        ODbConn.Close()

        'Los borra de los listbox. La selección se hace mediante el número de item.
        Dim ItemSeleccionado As Integer
        ItemSeleccionado = lsb_PSIS_TOPICO.SelectedIndex
        lsb_PSIS_RESPUESTA.Items.Remove(lsb_PSIS_RESPUESTA.Items(ItemSeleccionado))
        lsb_PSIS_TOPICO.Items.Remove(lsb_PSIS_TOPICO.Items(ItemSeleccionado))
    End Sub

    Private Sub Button7_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_AÑADIR_PRE_RESPUESTA_ALEATORIA.Click
        PreRespAleat.Text = "PRE-RESPUESTAS ALEATORIAS"
        PreRespAleat.ShowDialog()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_AÑADIR_RESPUESTA_ALEATORIA.Click
        PreRespAleat.Text = "RESPUESTAS ALEATORIAS"
        PreRespAleat.ShowDialog()
    End Sub

    Private Sub btn_ELIMINAR_PRE_RESPUESTA_ALEATORIA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_PRE_RESPUESTA_ALEATORIA.Click
        '==============================================================================================
        'COMENTARIOS. ELIMINAR UNA PRERESPUESTA DEL PSI DE LA B.D.
        '==============================================================================================

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("DELETE FROM PSIS_PRE_RESPUESTAS_ALEATORIAS WHERE PSIS_PRE_RESPUESTAS_ALEATORIAS.psi= " & "'" & txt_Nombre_PSI.Text & "'" & " and " & "PSIS_PRE_RESPUESTAS_ALEATORIAS.PreRespuestaAleatoria= " & "'" & lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem & "'", ODbConn)
        Dim DataReader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Remove(lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem)
        Command.Dispose()
        ODbConn.Close()
        lsb_PRE_RESPUESTAS_ALEATORIAS.Items.Remove(lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem)
    End Sub

    Private Sub btn_ELIMINAR_RESPUESTA_ALEATORIA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ELIMINAR_RESPUESTA_ALEATORIA.Click
        '==============================================================================================
        'COMENTARIOS. ELIMINAR UNA RESPUESTA DEL PSI DE LA B.D.
        '==============================================================================================

        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("DELETE FROM PSIS_RESPUESTAS_ALEATORIAS WHERE PSIS_RESPUESTAS_ALEATORIAS.psi= " & "'" & txt_Nombre_PSI.Text & "'" & " and " & "PSIS_RESPUESTAS_ALEATORIAS.RespuestaAleatoria= " & "'" & lsb_RESPUESTAS_ALEATORIAS.SelectedItem & "'", ODbConn)
        Dim DataReader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        lsb_RESPUESTAS_ALEATORIAS.Items.Remove(lsb_RESPUESTAS_ALEATORIAS.SelectedItem)
        Command.Dispose()
        ODbConn.Close()
        lsb_RESPUESTAS_ALEATORIAS.Items.Remove(lsb_RESPUESTAS_ALEATORIAS.SelectedItem)

    End Sub

    Private Sub lsb_PRE_RESPUESTAS_ALEATORIAS_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb_PRE_RESPUESTAS_ALEATORIAS.DoubleClick
        Dim TextoDelItemSeleccionado As String
        TextoDelItemSeleccionado = lsb_PRE_RESPUESTAS_ALEATORIAS.SelectedItem
        PreRespAleat.rtxt_RESPUESTA.Text = TextoDelItemSeleccionado
        PreRespAleat.Text = "MODIFICAR PRE-RESPUESTA ALEATORIA"
        PreRespAleat.ShowDialog()
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Haz doble clic sobre la pre-respuesta que quieres modificar", , "MODIFICAR PRE-RESPUESTA ALEATORIA")
    End Sub

    Private Sub Button7_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        MsgBox("Haz doble clic sobre la respuesta que quieres modificar", , "MODIFICAR RESPUESTA ALEATORIA")
    End Sub

    Private Sub lsb_RESPUESTAS_ALEATORIAS_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsb_RESPUESTAS_ALEATORIAS.DoubleClick
        Dim TextoDelItemSeleccionado As String
        TextoDelItemSeleccionado = lsb_RESPUESTAS_ALEATORIAS.SelectedItem
        PreRespAleat.rtxt_RESPUESTA.Text = TextoDelItemSeleccionado
        PreRespAleat.Text = "MODIFICAR RESPUESTA ALEATORIA"
        PreRespAleat.ShowDialog()
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        DarFormatoTexto()
    End Sub

    Private Sub Button8_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        MsgBox("Haz doble clic sobre el item que quieras modificar", , "MODIFICAR ITEM")
    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        ListarPropiedadesObjetos()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        ListarPropiedadesObjetos()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        ListarPsis()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        ListarPsis()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        ListarPsis()
    End Sub

    Private Sub txt_LOCALIDADES_NOMBRE_IMPRESO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_LOCALIDADES_NOMBRE_IMPRESO.LostFocus

        txt_LOCALIDADES_NOMBRE_IMPRESO.Text = Replace(txt_LOCALIDADES_NOMBRE_IMPRESO.Text, """", "")
        txt_LOCALIDADES_NOMBRE_IMPRESO.Text = Replace(txt_LOCALIDADES_NOMBRE_IMPRESO.Text, "'", "")
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar EL NOMBRE IMPRESO DE LA LOCALIDAD EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim LACommand As New OleDb.OleDbCommand("UPDATE LOCALIDADES SET LOCALIDADES.NombreImpreso = " & "'" & txt_LOCALIDADES_NOMBRE_IMPRESO.Text & "'" & "WHERE LOCALIDADES.ID=" & txt_ID.Text, ODbConn)
        Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)

        'Libera memoria
        LACommand.Dispose()
        ODbConn.Close()
    End Sub


    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_NW.Click
        Boton_Picado = "NW"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_N.Click
        Boton_Picado = "N"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_NE.Click
        Boton_Picado = "NE"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_W.Click
        Boton_Picado = "W"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_E.Click
        Boton_Picado = "E"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SW.Click
        Boton_Picado = "SW"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_S.Click
        Boton_Picado = "S"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SE.Click
        Boton_Picado = "SE"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EN.Click
        Boton_Picado = "EN"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SU.Click
        Boton_Picado = "SU"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_BA.Click
        Boton_Picado = "BA"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SA.Click
        Boton_Picado = "SA"
        InsteadLocalidades.ShowDialog()
    End Sub

    Private Sub Button14_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim Topico As String
        Dim Respuesta As String
        Topico = InputBox("Nombre para el tópico: ", "NUEVO TÓPICO")
        If String.IsNullOrEmpty(Topico) Then Exit Sub
        If Topico.Contains(",") = True Then
            MsgBox("No está permitido introducir el carácter ',' en un sinónimo")
            Exit Sub
        End If
        If Topico.Contains(".") = True Then
            MsgBox("No está permitido introducir el carácter '.' en un sinónimo")
            Exit Sub
        End If
        If Topico.Contains("!") = True Then
            MsgBox("No está permitido introducir el carácter '!' en un sinónimo")
            Exit Sub
        End If
        If Topico.Contains("?") = True Then
            MsgBox("No está permitido introducir el carácter '?' en un sinónimo")
            Exit Sub
        End If

        Dim tvn() As TreeNode = TvwTopicoPredefinidos.Nodes.Find(Topico, True)
        If tvn.Length > 0 Then
            TvwTopicoPredefinidos.SelectedNode = tvn(0)
            MsgBox("El tópico ya existe en el listado")
            Exit Sub
        End If
        Respuesta = InputBox("Texto para la respuesta. ", "NUEVA RESPUESTA")
        If String.IsNullOrEmpty(Respuesta) Then Exit Sub
        TvwTopicoPredefinidos.Nodes.Add(Topico, Topico)
        ' El nodo a seleccionar
        Dim Ultimonodo As Integer = TvwTopicoPredefinidos.Nodes.Count - 1
        TvwTopicoPredefinidos.SelectedNode = TvwTopicoPredefinidos.Nodes.Item(Ultimonodo)
        rtxt_RESPUESTAS_PREDEFINIDAS.Text = Respuesta

        ' PROCEDIMIENTO PARA GRABAR EL TOPICO EN LA B.D.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()
        Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_RESPUESTAS_PREDEFINIDAS (categoria, topico, respuesta) VALUES ('" & "Varios" & "'" & "," & "'" & Topico & "'" & "," & "'" & Respuesta & "')", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.SingleRow)

        'Libera memoria
        Command.Dispose()
        ODbConn.Close()

        '------------


    End Sub

    Private Sub Button17_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        If TvwTopicoPredefinidos.SelectedNode Is Nothing Then
            MsgBox("Primero tienes que seleccionar un tópico", , "NO SE HA SELECCIONADO TÓPICO")
            Exit Sub
        End If

        Dim sinonimo As String
        sinonimo = InputBox("Nombre para el sinónimo: ", "NUEVO SINÓNIMO")
        If sinonimo = "" Then
            MsgBox("El nombre del sinónimo no puede ser una cadena vacía", , "SINÓNIMO VACÍO")
            Exit Sub
        End If

        If sinonimo.Contains(",") = True Then
            MsgBox("No está permitido introducir el carácter ',' en un sinónimo")
            Exit Sub
        End If
        If sinonimo.Contains(".") = True Then
            MsgBox("No está permitido introducir el carácter '.' en un sinónimo")
            Exit Sub
        End If
        If sinonimo.Contains("!") = True Then
            MsgBox("No está permitido introducir el carácter '!' en un sinónimo")
            Exit Sub
        End If
        If sinonimo.Contains("?") = True Then
            MsgBox("No está permitido introducir el carácter '?' en un sinónimo")
            Exit Sub
        End If

        If String.IsNullOrEmpty(sinonimo) Then Exit Sub
        Dim tvn() As TreeNode = TvwTopicoPredefinidos.Nodes.Find(sinonimo, True)
        If tvn.Length > 0 Then
            TvwTopicoPredefinidos.SelectedNode = tvn(0)
            MsgBox("El tópico ya existe en el listado")
            Exit Sub
        End If

        Dim n As Integer
        If IsNothing(TvwTopicoPredefinidos.SelectedNode.Parent) = True Then
            n = TvwTopicoPredefinidos.SelectedNode.Index
            TvwTopicoPredefinidos.Nodes(n).Nodes.Add(sinonimo, sinonimo)
            TvwTopicoPredefinidos.Nodes(n).Expand()
            '==============================================================================================
            'COMENTARIOS. Procedimiento encargado de GRABAR EL SINONIMO PREDEFINIDO EN LA B.D.
            '==============================================================================================
            'Se establece la conexión con la base de datos.
            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
            Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            ODbConn.Open()
            Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS (topico, sinonimo) VALUES (" & "'" & TvwTopicoPredefinidos.SelectedNode.Text & "'," & "'" & sinonimo & "')", ODbConn)
            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            'Libera memoria
            Command.Dispose()
            ODbConn.Close()

        Else
            ' MsgBox("Nodo hijo")
            n = TvwTopicoPredefinidos.SelectedNode.Parent.Index
            TvwTopicoPredefinidos.Nodes(n).Nodes.Add(sinonimo, sinonimo)
            TvwTopicoPredefinidos.Nodes(n).Expand()
            '==============================================================================================
            'COMENTARIOS. Procedimiento encargado de GRABAR EL SINONIMO PREDEFINIDO EN LA B.D.
            '==============================================================================================
            'Se establece la conexión con la base de datos.
            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
            Dim ODbConn As New OleDb.OleDbConnection(sCnn)
            ODbConn.Open()
            Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS (topico, sinonimo) VALUES (" & "'" & TvwTopicoPredefinidos.SelectedNode.Parent.Text & "'," & "'" & sinonimo & "')", ODbConn)
            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            'Libera memoria
            Command.Dispose()
            ODbConn.Close()
        End If

    End Sub

    Private Sub Button15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR UN TOPICOS PREDEFINIDO EN LA B.D.
        '==============================================================================================
        Dim TopicoSinonimo As String
        TopicoSinonimo = TvwTopicoPredefinidos.SelectedNode.Text

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        If IsNothing(TvwTopicoPredefinidos.SelectedNode.Parent) = True Then
            Dim Command As New OleDb.OleDbCommand("DELETE FROM PSIS_RESPUESTAS_PREDEFINIDAS WHERE PSIS_RESPUESTAS_PREDEFINIDAS.topico= " & "'" & TopicoSinonimo & "'", ODbConn)
            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Command.Dispose()
            Dim Command_SIN As New OleDb.OleDbCommand("DELETE FROM PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS WHERE PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.topico= " & "'" & TopicoSinonimo & "'", ODbConn)
            Dim DataReader_SIN As OleDbDataReader = Command_SIN.ExecuteReader(CommandBehavior.CloseConnection)
            Command_SIN.Dispose()
        End If
        If IsNothing(TvwTopicoPredefinidos.SelectedNode.Parent) = False Then
            Dim Command As New OleDb.OleDbCommand("DELETE FROM PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS WHERE PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS.sinonimo= " & "'" & TopicoSinonimo & "'", ODbConn)
            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Command.Dispose()
        End If
        ODbConn.Close()
        TvwTopicoPredefinidos.Nodes.Remove(TvwTopicoPredefinidos.SelectedNode)

    End Sub

    Private Sub Button18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de TRASPASAR LA TABLA RESP.PREDEFINIDA A LA DE TOPICOS EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("INSERT INTO PSIS_TOPICOS_TABULADOS (psi,topico,respuesta) " & " SELECT " & "'" & txt_Nombre_PSI.Text & "'" & " , topico, respuesta FROM PSIS_RESPUESTAS_PREDEFINIDAS", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        Command.Dispose()

        Dim Command_Sin As New OleDb.OleDbCommand("INSERT INTO PSIS_SINONIMOS_TOPICOS (psi,topico,sinonimo) " & " SELECT " & "'" & txt_Nombre_PSI.Text & "'" & " , topico, sinonimo FROM PSIS_SINONIMOS_RESPUESTAS_PREDEFINIDAS", ODbConn)
        Dim DataReader_Sin As OleDbDataReader = Command_Sin.ExecuteReader(CommandBehavior.CloseConnection)
        Command_Sin.Dispose()
        
        'REFRESCAR LOS LISTBOS DE LOS TOPICOS Y RESPUESTAS

        Dim RefresCommand As New OleDbCommand("SELECT * FROM PSIS_TOPICOS_TABULADOS WHERE PSI = " & "'" & txt_Nombre_PSI.Text & "'", ODbConn)
        Dim RefresDatareader As OleDbDataReader = RefresCommand.ExecuteReader(CommandBehavior.CloseConnection)

        lsb_PSIS_TOPICO.Items.Clear()
        lsb_PSIS_RESPUESTA.Items.Clear()
        While RefresDatareader.Read
            lsb_PSIS_TOPICO.Items.Add(RefresDatareader.Item("Topico"))
            lsb_PSIS_RESPUESTA.Items.Add(RefresDatareader.Item("Respuesta"))
        End While

        MsgBox("El traspaso se ha efectuado correctamente. Si vuelves a pulsar el botón volveras a traspasar todos los tópicos predefinidos", , "ADVERTENCIA")

        RefresCommand.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub Button16_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        CargarTreeViewRespuestasPredefinidas()
    End Sub

    Private Sub TvwTopicoPredefinidos_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TvwTopicoPredefinidos.AfterSelect
        txt_TOPICO_RESPUESTA_PREDEFINIDA.Text = TvwTopicoPredefinidos.SelectedNode.Text

        Dim topico As String
        If IsNothing(TvwTopicoPredefinidos.SelectedNode.Parent) = True Then
            topico = TvwTopicoPredefinidos.SelectedNode.Text
        Else
            topico = TvwTopicoPredefinidos.SelectedNode.Parent.Text
        End If
        ' ==============================================================================================
        ' COMENTARIOS. Procedimiento encargado de CARGAR LAS RESPUESTAS PREDEFINIDAS DE LA B.D.
        ' ==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS_RESPUESTAS_PREDEFINIDAS WHERE topico = " & "'" & topico & "'", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        While DataReader.Read
            rtxt_RESPUESTAS_PREDEFINIDAS.Text = DataReader.Item("Respuesta")
        End While

        Command.Dispose()
        ODbConn.Close()
    End Sub

    Private Sub rtxt_RESPUESTAS_PREDEFINIDAS_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtxt_RESPUESTAS_PREDEFINIDAS.LostFocus
        rtxt_RESPUESTAS_PREDEFINIDAS.Text = CombrobarPuntoFinal(rtxt_RESPUESTAS_PREDEFINIDAS.Text)
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar la DESCRIPCIÓN INICIAL DEL OBJETO EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        If IsNothing(TvwTopicoPredefinidos.SelectedNode.Parent) = True Then
            Dim Command As New OleDb.OleDbCommand("UPDATE PSIS_RESPUESTAS_PREDEFINIDAS SET PSIS_RESPUESTAS_PREDEFINIDAS.respuesta = " & "'" & rtxt_RESPUESTAS_PREDEFINIDAS.Text & "'" & "WHERE PSIS_RESPUESTAS_PREDEFINIDAS.topico=" & "'" & TvwTopicoPredefinidos.SelectedNode.Text & "'", ODbConn)
            Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
            Command.Dispose()
        Else
            Dim LACommand As New OleDb.OleDbCommand("UPDATE PSIS_RESPUESTAS_PREDEFINIDAS SET PSIS_RESPUESTAS_PREDEFINIDAS.respuesta = " & "'" & rtxt_RESPUESTAS_PREDEFINIDAS.Text & "'" & "WHERE PSIS_RESPUESTAS_PREDEFINIDAS.topico=" & "'" & TvwTopicoPredefinidos.SelectedNode.Parent.Text & "'", ODbConn)
            Dim LADataReader As OleDbDataReader = LACommand.ExecuteReader(CommandBehavior.CloseConnection)
            LACommand.Dispose()
        End If
        'Libera memoria
        ODbConn.Close()
    End Sub

    Private Sub PictureBox_GRAFICO_INICIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_GRAFICO_INICIO.Click
        Dim AbrirDialogoDelGrafico As New OpenFileDialog()
        Dim Gráfico As String
        Dim RutaDelGráfico As String = ""

        Dim DirectorioDeImagenes As String

        DirectorioDeImagenes = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\inform\Projects\" & txt_Título_De_La_Aventura.Text & " Materials\Figures"
        AbrirDialogoDelGrafico.InitialDirectory = DirectorioDeImagenes
        If AbrirDialogoDelGrafico.ShowDialog = DialogResult.OK Then
            Gráfico = AbrirDialogoDelGrafico.FileName
            lbl_RUTA_DEL_GRAFICO_INICIO.Text = AbrirDialogoDelGrafico.SafeFileName
            RutaDelGráfico = AbrirDialogoDelGrafico.FileName
            Me.PictureBox_GRAFICO_INICIO.Image = Image.FromFile(Gráfico)
        Else
            Exit Sub
        End If

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de grabar el NOMBRE DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.gráfico = " & "'" & lbl_RUTA_DEL_GRAFICO_INICIO.Text & "'", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        Dim CommandRutaGrafico As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.RutaDelGráfico = " & "'" & RutaDelGráfico & "'", ODbConn)
        Dim DataReaderRutaGrafico As OleDbDataReader = CommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        Command.Dispose()
        CommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

    Private Sub bto_ELIMINAR_GRAFICO_INICIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bto_ELIMINAR_GRAFICO_INICIO.Click

        lbl_RUTA_DEL_GRAFICO_INICIO.Text = ""
        Me.PictureBox_GRAFICO_INICIO.Image = Nothing
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR el SAFENAME DE LA IMAGEN EN LA B.D.
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.gráfico = " & "'" & "" & "'", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ELIMINAR LA RUTA DE LA IMAGEN DE LA B.D.
        '==============================================================================================

        Dim CommandRutaGrafico As New OleDb.OleDbCommand("UPDATE INICIO SET INICIO.RutaDelGráfico = " & "'" & "" & "'", ODbConn)
        Dim DataReaderRutaGrafico As OleDbDataReader = CommandRutaGrafico.ExecuteReader(CommandBehavior.CloseConnection)
        'Libera memoria
        Command.Dispose()
        CommandRutaGrafico.Dispose()
        ODbConn.Close()

    End Sub

   
    Private Sub txt_LOCALIDAD_DESCRIPCION_INICIAL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_LOCALIDAD_DESCRIPCION_INICIAL.TextChanged

    End Sub

    Private Sub txt_Objeto_Descripción_Inicial_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Objeto_Descripción_Inicial.TextChanged

    End Sub

    Private Sub OrdenarAlfabéticamenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenarAlfabéticamenteToolStripMenuItem.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE EL LISTADO DE LOCALIDADES
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES ORDER BY nombrelocalidad ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_LOCALIDADES.Items.Clear()
        While DataReader.Read
            lst_LOCALIDADES.Items.Add(DataReader.Item("Nombrelocalidad"))
        End While
    End Sub

    Private Sub ContextMenuStripLOCALIDADES_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripLOCALIDADES.Opening

    End Sub

    Private Sub BuscarLocalidadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarLocalidadToolStripMenuItem.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE EL LISTADO DE LOCALIDADES
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES ORDER BY nombrelocalidad DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_LOCALIDADES.Items.Clear()
        While DataReader.Read
            lst_LOCALIDADES.Items.Add(DataReader.Item("Nombrelocalidad"))
        End While
    End Sub

    Private Sub BuscarLocalidadToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarLocalidadToolStripMenuItem1.Click
        Dim localidad As String
        localidad = InputBox("Nombre de la localidad a buscar: ", "BUSCAR LOCALIDAD")
        Dim indice As Integer
        indice = lst_LOCALIDADES.Items.IndexOf(localidad)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado la localidad buscada.", , "LOCALIDAD NO ENCONTRADA")
        Else
            lst_LOCALIDADES.SelectedIndex = indice
        End If
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE EL LISTADO DE LOCALIDADES
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES ORDER BY nombrelocalidad ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_LOCALIDADES.Items.Clear()
        While DataReader.Read
            lst_LOCALIDADES.Items.Add(DataReader.Item("Nombrelocalidad"))
        End While
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE EL LISTADO DE LOCALIDADES
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM LOCALIDADES ORDER BY nombrelocalidad DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_LOCALIDADES.Items.Clear()
        While DataReader.Read
            lst_LOCALIDADES.Items.Add(DataReader.Item("Nombrelocalidad"))
        End While
    End Sub

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        Dim localidad As String
        localidad = InputBox("Nombre de la localidad a buscar: ", "BUSCAR LOCALIDAD")
        localidad = UCase(localidad)
        Dim indice As Integer
        'indice = lst_LOCALIDADES.Items.IndexOf(localidad)
        indice = lst_LOCALIDADES.FindString(localidad)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado la localidad buscada.", , "LOCALIDAD NO ENCONTRADA")
        Else
            lst_LOCALIDADES.SelectedIndex = indice
        End If
    End Sub

    Private Sub OrdenarObjetosAlfabéticamenteAscendenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenarObjetosAlfabéticamenteAscendenteToolStripMenuItem.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE ASC EL LISTADO DE OBJETOS
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM OBJETOS ORDER BY nombre ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lstbox_OBJETOS.Items.Clear()
        While DataReader.Read
            lstbox_OBJETOS.Items.Add(DataReader.Item("nombre"))
        End While
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE ASC EL LISTADO DE OBJETOS
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM OBJETOS ORDER BY nombre ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lstbox_OBJETOS.Items.Clear()
        While DataReader.Read
            lstbox_OBJETOS.Items.Add(DataReader.Item("nombre"))
        End While
    End Sub

    Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE DESC EL LISTADO DE OBJETOS
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM OBJETOS ORDER BY nombre DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lstbox_OBJETOS.Items.Clear()
        While DataReader.Read
            lstbox_OBJETOS.Items.Add(DataReader.Item("nombre"))
        End While
    End Sub

    Private Sub OrdenarObjetosAlfabéticamenteDescendenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenarObjetosAlfabéticamenteDescendenteToolStripMenuItem.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE DESC EL LISTADO DE OBJETOS
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM OBJETOS ORDER BY nombre DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lstbox_OBJETOS.Items.Clear()
        While DataReader.Read
            lstbox_OBJETOS.Items.Add(DataReader.Item("nombre"))
        End While
    End Sub

    Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
        Dim objeto As String
        objeto = InputBox("Nombre de objeto a buscar: ", "BUSCAR OBJETO")
        objeto = UCase(objeto)
        Dim indice As Integer
        indice = lstbox_OBJETOS.FindString(objeto)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado el objeto buscado.", , "OBJETO NO ENCONTRADO")
        Else
            lstbox_OBJETOS.SelectedIndex = indice
        End If
    End Sub

    Private Sub BuscarObjetoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarObjetoToolStripMenuItem.Click
        Dim objeto As String
        objeto = InputBox("Nombre de objeto a buscar: ", "BUSCAR OBJETO")
        objeto = UCase(objeto)
        Dim indice As Integer
        indice = lstbox_OBJETOS.FindString(objeto)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado el objeto buscado.", , "OBJETO NO ENCONTRADO")
        Else
            lstbox_OBJETOS.SelectedIndex = indice
        End If
    End Sub

    Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE ASC EL LISTADO DE PSIs
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS ORDER BY nombrepsi ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_PSIS.Items.Clear()
        While DataReader.Read
            lst_PSIS.Items.Add(DataReader.Item("nombrepsi"))
        End While
    End Sub

    Private Sub OrdenarObjetosAlfabéticamenteAscendenteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenarObjetosAlfabéticamenteAscendenteToolStripMenuItem1.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE ASC EL LISTADO DE PSIs
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS ORDER BY nombrepsi ASC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_PSIS.Items.Clear()
        While DataReader.Read
            lst_PSIS.Items.Add(DataReader.Item("nombrepsi"))
        End While
    End Sub

    Private Sub OrdenarObjetosAlfabéticamenteDescendenteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenarObjetosAlfabéticamenteDescendenteToolStripMenuItem1.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE DESC EL LISTADO DE PSIs
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS ORDER BY nombrepsi DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_PSIS.Items.Clear()
        While DataReader.Read
            lst_PSIS.Items.Add(DataReader.Item("nombrepsi"))
        End While
    End Sub

    Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
        '==============================================================================================
        'COMENTARIOS. Procedimiento encargado de ORDENAR ALFABÉTICAMENTE DESC EL LISTADO DE PSIs
        '==============================================================================================

        'Se establece la conexión con la base de datos.
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase
        Dim ODbConn As New OleDb.OleDbConnection(sCnn)
        ODbConn.Open()

        'Se crea un objeto Command 
        Dim Command As New OleDb.OleDbCommand("SELECT * FROM PSIS ORDER BY nombrepsi DESC", ODbConn)
        Dim DataReader As OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        lst_PSIS.Items.Clear()
        While DataReader.Read
            lst_PSIS.Items.Add(DataReader.Item("nombrepsi"))
        End While
    End Sub

    Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
        Dim PSI As String
        PSI = InputBox("Nombre de objeto a buscar: ", "BUSCAR PSI")
        PSI = UCase(PSI)
        Dim indice As Integer
        indice = lst_PSIS.FindString(PSI)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado el PSI buscado.", , "PSI NO ENCONTRADO")
        Else
            lst_PSIS.SelectedIndex = indice
        End If
    End Sub

    Private Sub BuscarPSIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarPSIToolStripMenuItem.Click
        Dim PSI As String
        PSI = InputBox("Nombre de objeto a buscar: ", "BUSCAR PSI")
        PSI = UCase(PSI)
        Dim indice As Integer
        indice = lst_PSIS.FindString(PSI)
        If indice = -1 Then
            MsgBox("Lo siento, no he encontrado el PSI buscado.", , "PSI NO ENCONTRADO")
        Else
            lst_PSIS.SelectedIndex = indice
        End If
    End Sub
End Class
